S, a - должны быть целочисленными, а не вещественными.
Ответ: 3)
клетки удовлетворяющие условию: D1, D2, D3, D6, F6, F5, F4, F3 ,F2, F1, B2, B1, C2, C1, E1 ,E2, E3
a156bc
s = 123456
q = abc
delete (s,2,3) = 156
(/// Удаляет из строки s count символов с позиции index
procedure Delete(var s: string; index, count: integer);)
insert (s,q,2) = a156bc
(/// Вставляет подстроку source в строку s с позиции index
procedure Insert(source: string; var s: string; index: integer);)
Пусть обь и восток - пароходы 1 и 2
мир и енисей - 3 и 4
решение в картинках во вложении.
var s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='o' then s[i]:='a';
write(s);
end.