Программирование по информатике
С клавиатуры вводится последовательность чисел не превышающих 10000. Найти и вывести максимальное положительное число.
Напишите программу на языке паскаль

Граница 10000 обычно не употребляется

эй парень

Забыл я кое что

И ты мне не сказал

var a,amax:integer;beginwriteln('Введите положительное число');read(a);amax:=a;while a<>0 dobeginif (a>amax) and (a>0) then amax:=a;read(a);end;writeln('Максимальное число равно ',amax);end.