написать программу которая определяет максимальное значение 2 вещественных чисел в pascal 

program vewestvennoemax;var max,a,b:real;beginreadln(a,b);if a>b then max:=a else max:=b;writeln('Maksimalnoe= ',max);end.