program chel;
uses crt;
var x,y:integer;
begin
clrscr;
repeat
 write('Vvedi chislo:');
 readln(x);
 y:=y+x;
until readkey=#27;
write('summa =',y);
end.