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

Это просто программа, ее легко можно изменить на подпрограмму, если тебе нужно
Program P1;
var a,b,c:real;
begin
write('Введите три числа: ');
readln(a,b,c);
if (a>b) and (a>c) then writeln('Число ',a,' самое большое');
if (b>a) and (b>c) then writeln('Число ',b,' самое большое');
if (c>a) and (c>b) then writeln('Число ',c,' самое большое');
readln;
end.