A=3x+2ly
язык программирования Пайтон

в 1 программе  значение переменной а больше чем в цикле и  поэтому 10 не меньше 5 и цикл не выполняется

2 ошибка в том, что writeln выводит значение, а после  него еще есть условие про а

Если бы а было меньше пяти,то программа зациклилась из за a:=a+1 ,но если бы было меньше пяти и эта строчка была выше writeln (a),то цикл выполнился

Во 2 программе 

s:=s+a/2 получится  не целое число,которое соответсвует типу real  

И  не хватает еще одного действия после   s:=s+a/2;   там должна участвовать переменная a,чтобы получилась полноценная программа

1)

var

 num: integer;

begin

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

 read(num);

 if(num mod 2 = 0) then  

   write('Число четное')

 else  

   write('Число нечетное');

end.

2)

var

 a, b, i: integer;

begin

 writeln('Введите a');

 read(a);

 writeln('Введите b');

 read(b);

 if (a > b) then

   swap(a, b);

 for i := 0 to  

 b - a - 1 do

   a := a + 1;

end.

3)

var

 num: integer;

begin

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

 read(num);

 if (num div 1000 = 0) and (num div 100 <> 0) then  

   write('Число трехзначное')

 else  

   write('Число не трехзначное');

end.