Составьте программу, которая запрашивает три числа и определяет наибольшее из них.

Program maksimaljnoe_chislo;Var a, b, c, max : real; Begin CLRSCR; Writeln( ‘ введите первое число a = ’ ); Readln(a); Writeln( ‘ введите второе число b= ’ ); Readln(b); Writeln( ‘ введите первое число c = ’ ); Readln(c); Max:=a;If max < b then max:=b;If max < c then max:=c;writeln(‘ максимальное из чисел max= ’ , max:5:2);repeat until keypressed;END.