Помогите решить! Напишите программу для Паскаля на все номера

№1 Program first;Var a,i,b:integer;beginreadln(a);b:=8;i:=(a+b)*3;writeln(i);end.№3Program second;Var a,b,c:integer;begini:=0;b:=12;while i<=12 doa:=b*i;writeln(a);end; end.№4Program third;Var a,b,c,i:integer;begini:=1000;while i<9999 dobegina=i mod 129;if  a = 0 thenwriteln(a);end;end.