Пожаалуйста) В программе Geany Задача…

1) uses crt; var a: integer; beginreadln (a); if a mod 2=0 then writeln ('четное') else writeln ('нечетное'); end.2) uses crt; var x,a,b,i,k: integer; beginwriteln ('введите интервал'); read (a,b); writeln ('введите число'); readln (x); for i: =a to b doif i=x then inc (k); if k=0 then writeln ('нет') else writeln ('да'); end.