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

Ну если это паскаль то тогда :
program a1;
var a,s,d,max : integer;
BEGIN
writeln('введите 3 числа');
readln(a,s,d);
max:=a;
if max<s then max:=s;
if max<d then max:=d;
writeln('max=',max);
end.