Нужно сделать подпрограмму. не умею я подпрограммы писать! 9 класс, делфи сделать подпрограмму, которая вводит с клавиатуры 3 числа, находит найбольшее и выводит на экран.

Var a,b,c: integer; begin read(a,b,c);     if (a > b) and (a > c) then          write(a)     else         if (b > a) and (b > c) then          write(b)     else           write(c); end.в делфи добавишь на форму эдиты(4 штуки) и  одну кнопку. в трех эдитах будешь вводить свои значения, а в четвертом выведешь ответ и все это при клике на кнопку: procedure btn1click; var  a,  b,  c, max :   integer;   begin  a: = strtoint(edt1.text); // где edt1,2,3 - имена полей для ввода(эдиты) b: = strtoint(edt2.text); c: = strtoint(edt2.text);     if  (a > b)  and  (a > c)  then            max: = a;       else          if  (b > a)  and  (b > c)  then          max: = b;     else            max: = c; edt4.text: = 'максимальное число' +  max; //или  showmessage(максимальное число' +  max);   end.

даладно

Объяснение: