Program cykl_repeat;
uses crt;
var
a,b,c:real;
begin
clrscr;
repeat;
write('zadej cislo: ');
readln(a);
write('zadej cislo: ');
readln(b);
c:=a+b;
writeln('soucet je: ',c:2:2);
writeln;
if a=0 then writeln ('KONEC');
writeln;
until a=0;
readln;
end.