Ответ:

program n4;

var

 R, M, Y, a: real;

begin

 writeln('введите M');

 readln(M);  

 writeln('введите R');

 readln(R);    

 writeln('введите Y');

 readln(Y);  

 if(M > R) and (M > Y) then begin

 writeln('M=', M);

 end

 else if (R > M) and (R > Y) then begin

   a := R; writeln('R=', R); end

 else if (Y > M) and (Y > R) then begin

   a := Y;

   writeln('Y=', Y);

 end;

end.

Объяснение: