Ответ:

1

х не кратно 4 x mod 4 <> 0

-5 < х < -2 (х>-5) and (x<-2)

х [-1; 5] (х>=-1) and (x<=5)

2

program zadacha;

var a: integer;

begin

writeln('Введите число а');

//операторы разделяются ;

readln(a);

//указать какую переменную вводим

if a>=0 then a:=18

//if условие then оператор else оператор

//перед else ; не ставят

else a:=a-6;

writeln(a);

readln

end.