Определить величину ежемесячной выплаты N займов, соответственно в X1…Xn рублей, если они взяты на R1… Rn месяцев при процентной ставке, равной Y%.

var x,r,y:array[1..100] of real;
i,n:integer;
begin
write('Ââåäèòå êîëè÷åñòâî çàéìîâ: '); readln(n);
for i:=1 to n do
begin
write('Ââåäèòå êîëè÷åñòâî ìåñÿöåâ äëÿ ',i,' çàéìà: ');
readln(r[i]);
end;
for i:=1 to n do
begin
writeln('Ââåäèòå ñóììó ',i,' çàéìà: ');
readln(x[i]);
end;
for i:=1 to n do
begin
write('Ââåäèòå ïðîöåíòíóþ ñòàâêó ',i,' çàéìà: ');
readln(y[i]);
end;
for i:=1 to n do
y[i]:=y[i]/100;
for i:=1 to n do
begin
x[i]:=(x[i]*y[i]+x[i])/r[i];
writeln('Åæåìåñÿ÷íàÿ âûïëàòà ',i,' çàéìà= ',x[i]);
end;
end.