Написать программу в паскале определяющую и выводящую наибольшее из трех чисел

Program MAXOF3;   Var a,b,c,t,max: Real;   Begin     Writeln('Type 3 different numbers');     Write('a = '); Read(a);     Write('b = '); Read(b);     Write('c = '); Read(c);     t := (a+b)/2 + abs(a-b)/2; {abs(x) - модуль числа х}     max := (t+c)/2 + abs(t-c)/2;     Writeln('max = ', max:2); {:2 - количество знаков после запятой} End.