1простое условие (a>b)
2.      
составное условие  (a>0) and
(a<10)
3.       если
а больше 21 тогда у увеличить а в 2 раза иначе уменьшить на 2
if a>21 then a:=
a*2    else a:= a-2;   
4.       если
а положительное, тогда у увеличить а в 3 раза иначе уменьшить на 3
if a>0  then a:= a*3   
else a:= a-3  ; 
5.       если
а отрицательное, тогда у сделать равным 7, иначе уменьшить на 7
if a<0  then a:= 7   
else a:= a-7  ; 
6.       если
а четное, написать слово четное, иначе уменьшить на 7
if a mod 2=0  then write(‘четное’)   else a:= a-7  ; 
7.       если
а нечетное, то написать слово нечетное, иначе  написать слово четное
if a mod 2=1 if
a mod 2=0  then write(‘нечетное’)   else write(‘четное’)  ; 
В номерах 8-10 дано только условие, остальное придумать самим
8.       если
а кратно 7
if a  mod 7=0
9.      если а  
положительное и b четное
if (a>0)
and  (b mod 2=0)
10.    если а
или b положительное
if (a>0) or (b>0)