Язык pascal: разветвляющийся алгоритм составить алгоритм решения для определения максимального значения из двух различных вещественных чисел.

Var
  a,b,max:real;
begin
  Read(a,b);
  if a>b then max:=a else max:=b;
  Writeln('Максимальное: ',max)
end.