Язык Pascal: Разветвляющийся алгоритм Составить алгоритм решения задачи для определения максимального значения из двух различных вещественных чисел.
Программу, прошу прощения, не уточнил...
Var a,b,max:real; begin Read(a,b); if a>b then max:=a else max:=b; Writeln('Максимальное: ',max) end.