procedure vivod(n: integer);
begin
repeat
writeln(n mod 10);
n := n div 10;
until n = 0;
end;
Var n,p,k,s,i:integer;
begin
writeln(n);
readln(n);
writeln(p);
readln(p);
s:=0;
for i:=1 to n do
begin
writeln('введи число');
readln(k);
if (k mod p =0) then s:=s+1;
end;
writeln('ответ ',s);<span>
end.</span>
Если x находится в A1, а y - в A2, то =(13*A1^2)/(8-A2)
Как-то так
алг
нач
цел н
ввод н
вывод н * (н + 1) / 2
кон
А1 - 2
а2 -3
а3 - 3,4,5
а4 - 1
а5 - 3
а6 - 4
а7 - 5
а8 - 4
а9 - 1,2,3,4,5
а11 - 10
а12 - разрядом???