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
writeln ('Наибольшее из введенных чисел=', max);
repeat until keypressed;
end.
Вот так, это точно правильно, единственное, мог с пробелами накосячить, многое не помню.