Составить блок схему 

 

 

var
a,b,c:integer;
begin
readln(a);
readln(b);
readln(c);
if (a>b) and (a>c) then
writeln('naibolshee a=', a)
else if (b>a) and (b>c) then
writeln('naibolshee b=', b)
else if (c>a) and (c>b) then
writeln('naibolshee c=', c)
else
writeln('naibolshego net');

end.