1.

var

 a,x:integer;

 s:real;

begin

 write('Введите a - '); read(a);

 write('Введите x - '); read(x);

 s := (x/sqr(3+a*x))+3*x;

 writeln('Ответ: ',s);

end.

2.

var

 x:integer;

begin

 write('Введите число - '); readln(x);

 writeln(x mod 5);

 writeln(x div 5);

end.

P.s. даже в задании ошибка... Остаток при делении 751 на 5 будет 1, а не 2

1)var x,a:integer;

r: real;

begin

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

readln (a);

writeln ('введите x');

readln (x);

r:=x/sqr(3+a*x)+3*x;

writeln(r)

end.

2)var a:integer;

begin

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

 readln(A);

 writeln('остаток ',a,' на 5=',a mod 5);

 writeln('целая часть числа ',a,'на 5=' ,a div 5)

 end.