Составьте блок схему к программе. Срочнооооо. Очень нужно

program z_8;

var m, s: integer;

begin

repeat

readln (m);

if m>s then

s:=m;

until m=0;

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

end.