Даю 60 баллов!!! РЕБЯТА, СРОЧНО, ПОМОГИТЕ С ИКТ, ПРОШУ!)
_______________________________________
Нужно сделать в паскале.
Вводятся 2 числа, если оба числа четных, то посчитать и вывести на экран их сумму. Если хотя бы 1 из чисел четное, то посчитать и вывести на экран произведение. Если оба нечетных, то посчитать и вывести на экран их разность.

program z1;
var x,y:integer;
begin
write('Введите первое число: ');
readln(x);
write('Введите первое число: ');
readln(y);
if((x mod 2 = 0) and (y mod 2 = 0) ) then
writeln('Сумма: ', x+y)
else if (((x mod 2 = 0) and (y mod 2 <> 0)) or ((y mod 2 = 0) and (x mod 2 <> 0))) then
writeln('Произведение: ',x*y)
else
writeln('Разность: ',x-y);
end.

Я изменил ответ. Сверьте, пожалуйста.