Дана последовательность действительных чисел. Выяснить, будет ли она возрастающей (Паскаль) нужен листинг

program zz1;

var n, k, p, a, b:real; / / задаем переменные не целого типа

begin

write (' введите количество чисел в последовательности ');

read (n);

p:=1;

read (a); / / вводим с клавиатуры число

while p < n do / / организуем цикл, пока количество чисел не достигнет n

begin

read (b); / / вводим следующее число

if b < a then k:=1; / / проверяем на возрастание

a:=b;

p:=p + 1;

end;

if k = 0 then writeln (' последовательность возрастающая ')

else writeln (' последовательность не возрастающая '); / / выводим ответ

end.