Решить задачу. На фабрику поступило a кг промытой шерсти, b% веса которой составляет вода. При сушке за каждый час испаряется 30% имеющейся влаги. Сколько процентов от веса шерсти будет составлять вода после 5 часов сушки?(pascal abc)

var a,b,i: integer;

var c: real;

begin

write('Введите, сколько кг промытой шерсти поступило',

' на фабрику: ');

readln(a);

write('Введите процент воды: ');

readln(b);

c:=a*(b/100); // Всего воды (в кг)

for i:=1 to 5 do

 begin

 c:=c*0.7;  

 end;

writeln('Вода составляет ',c/a,'% от веса шерсти',

' после 5 часов сушки');

end.

в двоичной 1000001

в восмеричной 101

в шеснадцатеричной 41

var

i,s: integer;

begin

s: =0;

for i: =2 to 5 do

s: =s+i*i;

writeln(s);

end.