Sucet X po 200

//sucet x po 200
program sucetxpo200;
{$APPTYPE CONSOLE}
uses SysUtils;
var c,v:word;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  v:=0;
  while v<200 do
    begin
      write('Zadajte cislo: ');
      readln(c);
      v:= v+c;
    end;
  writeln('Zadal si o ',v-200,' viac');
  readln;
end.