Составьте блок схему к программе
program z_8;

var m, s: integer;

begin

repeat

readln (m);

if m>s then

s:=m;

until m=0;

writeln('Наибольшее число: ', s)

end.

555Sofia555    3   15.05.2020 18:16    2