Вот например 3.
If a/2 div 2 then writeln ('Polojit') else
writeln ('otricat')
S:=s+i