Написать программу ввода неопределенного ряда целых чисел до тех пор,пока не будет...

Question

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

Answer 1

program raf105;

var a:integer;

begin

while a<>1 do

readln(a);

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

end.

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