Răspuns:
program vecine;
var a,b:integer;
begin
writeln('Introdu doua numere naturale:');
write('a='); read(a);
write('b='); read(b);
if (abs(a-b)=2) and (a mod 2=0) then
writeln('sunt pare vecine')
else writeln('nu sunt pare vecine');
readln;
end.
Explicație:
nu am mai verificat ca numerele introduse sa fie pozitive, deoarece in enunt se spune ca se introduc doua naturale,,, Succese!