Написать программу ввода неопределенного ряда целых чисел до тех пор,пока не будет введена 1. После ввода 1,программа должна вывести сообщение «программа закончена»
program raf105;
var a:integer;
begin
while a<>1 do
readln(a);
writeln('Программа закончена');
end.
Язык программирования PascalABC