Склавиатуры вводится строка. подсчитать сколько раз в нее входит подстрока abc.

Var s: string;       n,k: integer; begin   write('строка: ');   readln(s);   k: =0;   n: =pos('abc',s);   if n> 0 then   repeat       k: =k+1;       delete(s,1,n+2);       n: =pos('abc',s);   until n=0;   writeln(k); end. строка: fdrsabcde dsabcjhy abckjuy 3 строка: dscabgfre fhygdte 0

shift+ ctrl, эти клавиши шифт и контрл расположены в 2 сторонах клавиатуры, слево и справа, имеют специфические названия левый и правый шифт и контрл, особенности заключаются в том что возможна а компьютетре или ноутбуке есть возможность переключения языков шифт и альт, 

 

название клавиши ереключения регистров capslock , так же есть возможность зажатой левой шифт и любая буква

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.