Для решения в паскале: найти максимальное из трех чисел. дано: 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<c then max:=c;

writeln ('Наибольшее из введенных чисел=', max);

repeat until keypressed;

end.

Вот так, это точно правильно, единственное, мог с пробелами накосячить, многое не помню.