Program z1;
var a1, a2: integer;
begin
readln(a1, a2);
if a1 > a2 then writeln('a1');
if a2 > a1 then writeln('a2');
if a1=a2 then writeln('=')
end.
program z2;
var x: integer;
begin
readln(x);
writeln(x/(x+5));
end.
program z3;
var x: integer;
y: real;
begin
readln(x);
if x>0 then begin
y:=sqrt(x)+2;
end
else begin
if x<0 then begin<br>y:=sqr(x);
end
else y:=5;
end;
writeln(y);
end.
Если среда - FPC, то в вывод во 2 и 3 задачах добавить :4:4 ( Пример writeln(y:4:4);)