1) Сместиться на (−5, −2)
2) Сместиться на (−3, −5)
3) Сместиться на (−5, −4)
<span>4) Сместиться на (−5, −5)
(-5-3-5-5;-2-5-4-5)=(-18;-16)
значит, чтобы вернуться в исходную точку нужно выполнить команду :
сместиться на(18;16)</span>
Var k,i,n,a:integer;
begin
read(n);
while i<n do begin
read(a);
if (a mod 10=6) then k:=k+1; i:=i+1;
end;
writeln('Чисел, оканчивающихся на 6: ', k);<span>
end.</span>