дана программа
program primer3
usus crt;
var x: integer ;
begin
clrscr;
readlin (x);
if x mod 2=0 then writeln (да )
else writeln ( нет)
при каком значении х будет получен ответ да