Pascal / Вводится последовательность натуральных чисел. Вывести максимальное простое число из последовательности.

var number, max:integer;

begin

writeln('Введите 0, чтобы закончить ввод');

while true do

begin

readln(number);

if number = 0 then

break;

if number > max then

max := number;

end;

writeln(max);

end.