Написать программу ввода неопределенного ряда целых чисел до тех пор,пока не будет введена 1. После ввода 1,программа должна вывести сообщение «программа закончена»

program raf105;

var a:integer;

begin

while a<>1 do

readln(a);

writeln('Программа закончена');

end.

Язык программирования PascalABC