program raf105;
var a:integer;
begin
while a<>1 do
readln(a);
writeln('Программа закончена');
end.
Язык программирования PascalABC
