Умовний оператор

program Dobytok_cyFr;

uses CrT;
Var a,b,c,t,f:byte;

BEGIN
Writeln('Vvesty kilkist hvylyn');
Readln(t);
a:= t div 60;
Writeln(a);
b:= t mod 60;
Writeln(b);
//c:= t div   mod ;
Writeln(c);
//f:=a*b*c;



END.

Cile_Dilenya

program Cile_Dilenya;

uses CRT;
Var a:integer;
BEGIN
a:=6 div 5;
Writeln(a);
a:=148 mod 40;
Writeln(a);

a:=12 div 7;
Writeln(a);
a:=234 mod 15;
Writeln(a);

a:=47 div 10;
Writeln(a);
a:=15 div 4 mod 2;
Writeln(a);

a:=185 mod 100;
Writeln(a);
a:=188 mod 5 div 2;
Writeln(a);

a:=89 div 12;
Writeln(a);
a:=753 div 5 mod 4;
Writeln(a);

a:=75 div 4;
Writeln(a);
a:=129 mod 10 div 3;
Writeln(a);

a:=129 div 50;
Writeln(a);
a:=384 div 23 mod 4;
Writeln(a);

a:=56 mod 7;
Writeln(a);
a:=384 div 23 mod 4;
Writeln(a);
END.

ЦЧД. Сума трьохзначних чисел Free_Pascal IDE

program Free_Pascal ;

uses CRT;
Var a,b,c,f,E:integer;
BEGIN
Writeln('Vvesty tryznashne shislo');
Read(c);
a:= c mod 10;
b:= c div 100;
f:= c div 10 mod 10;
E:= a+b+f;
writeln(E);
Readln;
Readln;

END.

ЦЧД

program Free_Pascal ;

uses CRT;
Var a,b,c,E:integer;
BEGIN
Writeln('Vvesty shotyryznashne shislo');
Read(c);
a:= c mod 10;
Writeln(a);
b:= c div 10;
c:= c div 10 mod 10;
E:= a*b*c;
writeln(E);
Readln;
Readln;
END.

ЦЧД_2

program Free_Pascal ;

uses CRT;
Var a,b,c,h:integer;
BEGIN
Writeln('Vvesty shotyryznashne shislo');
Read(c);
a:= c mod 100;
Writeln(a);
b:= c div 5;
c:= c div 100 mod 10;
h:= a*b*c;
writeln(h);
Readln;
Readln;
END.

LTD

1. Const a=2; b=10; 
 var x:boolean; 
begin 
  x:=a < b; 
  Writeln(x); 
end. 

2. Const a=TRUE;    b=FALSE; 
Begin 
 writeln(b > a); 
end. 

3. Const X=-2; y=2; 
 Var Z:Boolean; 
Begin 
Z:=sqr(x)-sqr(y)=0; writeln(z); 
end.

4. Const F=7; D=5; 

 Var Z:Boolean; 
Begin 
 Z:=1/F > 1/D; 
 writeln(z); 

end.