Требуется поменять букву a в тексте c на букву b. входные данные входные данные содержат буквы a, b (нижний регистр) и текст c. если n длина текста с, то n ≤ 106. выходные данные нужно вывести одно целое число - значение n, если существует, в противном случае -1. примеры

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n

program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do  begin  y: =x*h;   writeln('цена за ',h*1000,' грамм ',y,' руб');   h: =h+0.1  end; end.

если его поставить так, чтоб краев рядом не было, куда-нибудь в центр. тогда он всегда будет вертется