Объяснение:

var max,a,b,c:integer;

begin

write('Введите первое число: ');

readln(a);

write('Введите второе число: ');

readln(b);

write('Введите третье число: ');

readln(c);

if (a>=b) then

if (a>=c) then max:=a

else max:=c

else if (c>=b) then max:=c

else max:=b;

writeln('max=',max);

end.