Задача для решения в паскале: найти максимальное из трех чисел. дано: x,y,z    

program maks; uses crt; var x, y, z, max: real; begin clrscr; writeln ('Введите первое число='); readln (x); writeln ('Введите второе число='); readln (y); writeln ('Введите третье число='); readln (z); if a>b then max:=a else max:=b; if max