Ф, ы, в, а, п, р, о, л, д, ж
Ф, Ы, В, А, П, Р, О, Л, Д, Ж
радовал, вырывал, продавал, пропадал, подождал, водопад, подвал
Var
number: integer;
sum: integer;
begin
repeat
write('number = ');
readln(number);
sum := sum + number;
until number = 1;
writeln('Сумма = ', sum);
end.