Кто шарит за паскаль по заданию надо сделать это, но у меня результат не показывается, что я не правильно сделал program test;
const
c1 = 3;
c2 = 2.5;
var
a, s: integer;
b: real;
begin
b:=8.8;
a:=5;
s:=7+a+c1;
end.

Var 
   n,k,i: integer;
   a: array[1..1000] of integer;
begin
   write ('Введите N: ');
   read (n);
   for i:=1 to n do begin
      write ('Введите ',i,'-й член последовательности: ');
      readln (a[i]);
      if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0)
         then k:=k+1
   end; 
   writeln ('K = ',k)
end.

Введите N: 5
Введите 1-й член последовательности: 12
Введите 2-й член последовательности: 9
Введите 3-й член последовательности: 7
Введите 4-й член последовательности: 15
Введите 5-й член последовательности: 30
K = 2

                  34,8г 5%                                         хг   

Ba(NO3)2  +  K2SO4         =    2KNO3    +   BaSO4

                   v=1моль                                   v=1моль

                   М=174г/моль                            М=233г/моль

                   m=174г                                     m=233г

найдем массу соли

m(K2SO4)=(34,8г*5%)/100%=1,74г

сост.пропорцию

1,74гхг

174г233г

х=(233г*1,74г)/174г=2,33г

вместо пропорции можно решить через моль:

v(K2SO4)=1,74г/174(г/моль)=0,01моль

v(BaSO4)=v(K2SO4)=0,01моль

m(BaSO4)=0,01моль*233(г/моль)=2,33г

ответ: 2,33г