дана программа :
program primer;
uses ctr;
var x:integer;
begin
clrsct;
readln(x);
if x mod 2=0 then writen ( "да")
else writeln ("нет")
при каком значении х будет получен ответ <<да>>