Question

Помогите решить Плииз Составить программу. Pascal

Answer 1

program p1;

var a,b,c,d: integer;

begin

writeln ('введи a, b, c');

read (a, b, c);

if a>b then d:=a

else d:=b;

if c>d then d:=c;

writeln ('', d);

end.