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

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

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.