с клавиатуры вводиться строка и буква ,необходимо составить ...

Motes

Program n1;Uses CRT;Var s: string; a: char; i,k: integer;beginWriteln('Vvedite stroku');readln(s);Writeln('Vvedite simvol');readln(a);For i:=1 to length(s) do if s[i]=a then k:=k+1;Writeln('Simvol ',a,' vstrechaetsa v stroke ',k,' raz');readlnend.