Ввести с клавиатуры 5 целых чисел.определить количество четных чисел в исходном наборе. ввести 2 числа . если они равны,то найти их произведение,иначе найти сумму

Var a,b,c,d,f:integer; begin read (a,b,c,d,f); if a mod 2 = 0 then writeln ("Число четное") else нечетное. Задаешь команду на кол-во
var a,b,c:real; read (a,b) if a=b then c = a*b else c = a+b
Краткое решение (без оформления)