program summa;
var
x, y:real;
begin
writeln('Введите вещественные числа');
read(x,y);
writeln('их сумма: ', x+y);
writeln('их разность: ', x-y);
writeln('их произведение: ', x*y);
writeln('их частное: ', x/y:0:2);
end.
Var a:array[1..20] of real;
var out:real;
var i:integer;
begin
out:=0;
for i:=1 to 20 do
begin
a[i]:=random();
if abs(out)<abs(a[i])
then out := a[i];
end;
write(out);
end.
Вроде,нет inc'(n=1 ,n:5')