Помогите составить программу на паскале!!! Пользователь вводит два числа. Если они не равны 10 и первое число четное, то вывести их сумму, иначе вывести их произведение.

Program zadacha;vara,b,sum,pr:integer;beginwriteln(vvedite dva chisla);readln(a,b);if (alt;gt;10) and (blt;gt;10) and (a mod 2 = 0)thenwriteln(a+b=,a+b)elsewriteln(a*b=,a*b);end.