P.S программа написана для Pascal.
program maxchislo;
var
a, b, c, max : integer;
begin
writeln('Введите первое число');
read(a);
writeln('Введите второе число');
read(b);
writeln('Введите третье число');
read(c);
if a>b then
max:=a
else
max:=b;
if max>c then
writeln('Наибольшее число: ', max)
else
writeln('Наибольшее число: ' ,c);
end.