Var
i: real; //Натуральное число
begin
readln(i); //Считал число
while (i > 5) do //В условном цикле...
i := i / pi; //...преобразовал число
writeln(i); //Вывел число
end.
калькулятор - вычислительное устройство
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(ar[i]);
for i:=1 to n-1 do
if ar[i]>ar[i+1] then
begin
writeln('Убывает на одном из участков');
exit;
end;
writeln('Возрастает');
end.
1580kilobautпо идее должно быть до 1580 килобайтов