Введите с клавиатуры два числа a и b . Если оба числа четные , то вычислите их сумки выведите результат на экран .если оба нечетные то найдите
произведение этих чисел и выведите результат . Иначе, увеличить все числа в пять раз и выведите результаты. Решение, которое уже есть на сайте не писать

vara,b,c:integer;beginreadln(a,b);If (a mod 2 = 0) and (b mod 2 = 0) thenbeginc:=a+b;writeln('Сумма= ',c);endelseif (a mod 2 = 1)and (b mod 2 =1)thebeginc:=a*b;writeln('Произведение= ',c); endelsebegina:=a*5;b:=b*5;writeln('A=',a,' B= ',b);end;end.