Pre pata

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var c,s:word;
 begin
  { TODO -oUser -cConsole Main : Insert code here }
  s:=0;
  repeat
    write('Zadajte cislo: ');
    readln(c);
    if (c>=100) and (c<=200) then s:=s+c
    else writeln('Zadal si spatne cislo!');
    if s>200 then writeln('Zadali ste o ',s-200,' viac!');
  until s>=200;
  writeln('Sucet vsetkych cisiel je: ',s);
  readln;
end.