надо Решите задачу в Паскале ABC.
Дому принадлежит А гектаров земли, из которых В гектаров занимают гаражи. Какой процент площади, принадлежащей этому дому, отведено под гаражи? Какой процент площади занимает дом?

а:100*b=a*b/100

Объяснение:

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.