1:

program one;

var x,y:real;

begin

   write('Введите x: '); readln(x);

   if x < -3 then write('y = ', (7*sqr(x)-1)/(2*x+6):0:2)

   else write('y = ', 4*sqr(x)-5:0:2)

end.

2:

program two;

var a,b:integer;

begin

   write('Введите a: '); readln(a);

   write('Введите b: '); readln(b);

   if b mod a = 0 then write('Число ', a, ' является делителем числа ', b)

   else write('Число ', a, ' не является делителем числа ', b)

end.