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

Это просто программа, ее легко можно изменить на подпрограмму, если тебе нужноProgram P1;var a,b,c:real;beginwrite('Введите три числа: ');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.