Rastúce Čísla

program rastucecisla;
{$APPTYPE CONSOLE}
uses SysUtils;
var c,pc:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  pc:=0;
  repeat
    write('Zadajte cislo (zadavanie ukoncite 0): ');
    readln(c);
    if c>pc then writeln('Cislo ',c,' narasta!')
       else writeln('Cislo ',c,' nenarasta!');
    pc:=c;
  until c=0;
  readln;
end.