Var s,t: string;
i: integer;
begin
writeln ('Введите строку: ');
readln (s);
t:='';
for i:=1 to length(s) do
if s[i]='а' then t:=t+s[i]+s[i] else t:=t+s[i];
writeln (t);
<span>end.</span>
В конце каждой программы после слова end не забудьте поставить точку
мышь микрофон.............................................
1. Выполняем операцию "Сместиться" как написано в условии, приняв за начальную точку начало координат (0, 0).
2 и 3. Находим координаты начальной точки (x, y)
Начальная точка равна (-6, 8)
Это можно проверить проделав операцию из первого пункта, приняв за начальную точку (-6, 8), (7, -7) + (-6, 8) = (1, 1)