var a,b,c,d,max : real;
begin
write('Первое число: '); read(a);
write('Второе число: '); read(b);
write('Третье число: '); read(c);
write('Четвертое число: '); read(d);
if (a>b) and (a>c) and (a>d) then
max:=a;
if (b>a) and (b>c) and (b>d) then
max:=b;
if (c>a) and (c>b) and (c>d) then
max:=c;
if (d>b) and (d>c) and (d>a) then
max:=d;
writeln('Наибольшее число: ',max);
end.