Составить процедуру нахождения максимального из двух действительных чисел, вводимых с клавиатуры. Используйте процедуру для нахождения максимального значения для четырех чисел.

uses crt;
var a,b,s,c,d:real;
procedure maxim (x,y:real;var s:real);
begin
  if x < y then s:=y else s:=x;
end;

begin
  clrscr;
  writeln('a=b=');readln(a,b);
  writeln('c=d=');readln(c,d);
{В переменную S заносим большее из двух чисел А и В.}
  maxim(a,b,s);
{В переменную S заносим большее из двух чисел С и S.}
  maxim(c,s,s);
{В переменную S заносим большее из двух чисел D и S.}
  maxim(d,s,s);
  writeln('max=',s:3:1);
  readln;
end.