Домашнее задание №2

Program two;
Var a,b,sym,raz,pr,ch:integer;
begin
writeln (a,b); 
readln (a,b);
sym:=a+b;
raz:=a-b;
pr:=a*b;
ch:=a/b;
writeln(sym,raz,pr,ch);
readln;
end.

Домашняя работа №5

program five;
var x,y: real;
begin
writeln('vvedite 2 chislа po 3 chifry ');
readln(x,y);
if (Х div 100 000+(Х div 10 000 mod 10)+(Х div 1000 mod 10))=((У div 100 mod 10)+(У div 10 mod 10)+(У mod 10))  then ( 'bilet yavlyaetsa scastlivam')
writeln;
readln;
end.

Домашнее задание №4

Program four;
var x,y,F:real;
begin
writeln('vvedite x,y');
readln (x,y);
If x>0,y>0
 then F:=1;
else F:=0
writeln(F);
readln;
end.

Домашнее задание №3

program three;

var a,b,c,f: real;

begin

writeln('vvedite 3 chisla');

readln(a,b,c);

if (a+b>c) or (a+c>b)

or (b+c>a) then F=1

else F=0;

writeln;

readln;

end.