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.
Объяснение:
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.
Объяснение: