ответ: var x,s: integer; (x*30/100)- расчёт процентов
begin
x: =8000;
s: =x+x+(x*30/100);
writeln ('s=',s);
end,
