1. Составьте программу, определяющую максимальное из всех вводимых вами

чисел. Концом ввода чисел является введенное число 0.
Важно!!!- нужно сделать через for или while!

Я так полагаю, что это паскаль. Через while будет попроще это сделать.Vara,b:real;Beginread(a);b:=a;while a<>0 do beginread(a);if a>b then b:=a;end;writeln(b);end.