Program Pr1;uses crt;var a,b,c,max:integer;Beginclrscr;readln(a,b,c);if a>b then max:=aelse max:=b;if max>c then writeln(max)else writeln(c);end.
максимальненькое число С
Program Pr1;
uses crt;
var a,b,c,max:integer;
Begin
clrscr;
readln(a,b,c);
if a>b then max:=a
else max:=b;
if max>c then writeln(max)
else writeln(c);
end.
максимальненькое число С