Объяснение:
var x : Integer;
begin
write('x = '); readln(x);
if (x mod 10 = 2) OR (x mod 10 = 3) then writeln('да') else writeln('Нет');
end.
