Составте программу на языке паскаль, которая будет вычислять сумму двузначных четных чисел бьюсь уже 2 часа. заранее

Program upr1;
var a,b,c:integer;
begin
readln (a,b);
if (10<=a) and (99>=a) and (10<=b) and (99>=b)
then c:= a+b;
writeln (c);
end.