Ответ:

program naubolshee;

var x1, x2, x3, max:integer;

begin

write('x1=');

read(x1);

write('x2=');

read(x2);

write('x3=');

read(x3);

if (x1 >= x2) then

       max:=x1

   else

       max := x2;

if x3 > max then

       max := x3;

       writeln('Наибольшее число: ', max);

end.

Объяснение: