Даны три числа определить максимальное из них и построить блок схему

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.