Question

Составить программу на PASCAL abc нахождение наибольшего из 4 чисел

Answer 1

var a,b,c,d:integer;
begin
write('a,b,c,d->'); read(a,b,c,d);
if a<b then a:=b;
if c<d then c:=d;
if a>c then Writeln(a) else Write(c);
end.