Var
  s,let:string;
  i,k1,k2:integer;
Begin
  k1:=0;
  k2:=0;
  writeln('Type your text:');
  readln(s);
  write('Type your letter: ');
  readln(let);
  for i:=1 to length(s) do
    begin
      if s[i]=let then inc(k1);
      if s[1]=let theb inc(k2);
      if (s[i]=let) and (s[i-1]=' ') then inc(k2);
    end;
  writeln('Count letters is ', k1);
  writeln('Count words on the letter is ', k2);
  readkey;
End.

Var
  s,num:string;
  i,j,k:integer;
Begin
  k:=0;
  num:='1234567890';
  writeln('Type your text:');
  readln(s);
  for i:=1 to length(s) do
    for j:=1 to length(num) do
      if s[i]<>num[j] then s[i]:='-' else inc(k);
  writeln(s);
  writeln('Count of numbers is ', k);
  readkey;
End.

Var
  s,s1,gl:string;
  i,i1,j:integer;
Begin
  gl:='aeiouy';  {тут вводишь все гласные буквы}
  writeln('Type your text:');
  readln(s);
  i1:=0;

{------- это под буквой а) -------}
  for i:=1 to length(s) do
    for j:=1 to length(gl) do
      if s[i]<>gl[j] then
        begin
          inc(i1);
          s1[i1]:=s[i];
        end;
{------- ------- ------- -------}

{------- это под буквой б) -------}
  for i:=1 to length(s) do
    for j:=1 to length(gl) do
      if s[i]=gl[j] then
        begin
          inc(i1); s1[i1]:=s[i];
          inc(i1); s1[i1]:=s[i];
        end
      else s1[i1]:=s[i];
{------- ------- ------- -------}

  writeln(s1);  
  readkey;
End.

Var
  s1, s2: String;
  i: Integer;
Begin
  Write('Enter any word: ');
  ReadLn(s1);
  For i := Length(s1) downto 1 do
    s2 := s2 + s1[i];
  If (s1 = s2) then
    WriteLn('This word is palindrome')
  Else
    WriteLn('This word is not palindrome');
  Write('Press RETURN to continue...');
  ReadLn;
End.