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

Programm; 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.