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

Это просто программа, ее легко можно изменить на подпрограмму, если тебе нужно

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.