Могут быть небольшие ошибки var a: integer; begin readln (a); if (a mod 2)=0 then writeln ('да') else writeln ('нет'); end.