Информатика 8 класс найдите сумму чётных чисел и произведение нечётных чисел введённых с клавиатуры количество чисел задается с клавиатуры

Program z1; uses crt; var a,b,c,r,r1: real; begin writeln('введите 1, 2 и 3 числа '); readln(a,b,c); r: =a+b+c; r1: =a*b*c; writeln('сумма чисел: ',r); writeln('произведение чисел ',r1); end.

Створюємо кнопку для кнопки (button1) процедура onclick створюємо поле вводу створюємо текстове поле procedure tform1.button1click(sender: tobject); var x: real; begin  x: = strtofloat(edit1.text); if edit1.text = '1'then label1.caption: = 'январь'; if edit1.text = '2'then label1.caption: = 'февраль'; if edit1.text = '3'then label1.caption: = 'март'; if edit1.text = '4'then label1.caption: = 'апрель'; if edit1.text = '5'then label1.caption: = 'май'; if edit1.text = '6'then label1.caption: = 'июнь'; if edit1.text = '7'then label1.caption: = 'июль'; if edit1.text = '8'then label1.caption: = 'август'; if edit1.text = '9'then label1.caption: = 'сентябрь'; if edit1.text = '10'then label1.caption: = 'октябрь'; if edit1.text = '11'then label1.caption: = 'ноябрь'; if edit1.text = '12'then label1.caption: = 'декабрь'; end; end.  

Var  month: integer;   begin  writeln('введите номер месяца(1-12): ');   readln(month);       case month of    1: writeln('январь');     2: writeln('февраль');     3: writeln('март');     4: writeln('апрель');     5: writeln('май');     6: writeln('июнь');     7: writeln('июль');     8: writeln('август');     9: writeln('сентябрь');     10: writeln('октябрь');     11: writeln('ноябрь');     12: writeln('декабрь');     else              writeln('неверно введён номер месяца! ');     end; end.