[Карина45]

есть код на паскале,который нужно переделать в делфи

Код:

var n,i,a,b,k:integer;
begin
repeat
write('Количество школьников n>1 n=');
readln(n);
until n>1;
writeln('Введите рост школьников');
readln(a);
k:=0;
for i:=2 to n do
 begin
  readln(b);
  if b>a then k:=1;
  a:=b;
 end;
if k=0 then write('Рост упорядочен по убыванию')
else write('Рост не упорядочен по убыванию')
end.

Админ: Пользуемся тегами при оформлении кода!