Вывести строку, содержащую символы строки S, между которыми вставле-но по одному пробелу

var
  Str: string;
  i: byte;
begin
  writeln('Введите строку: ');
  readln(Str);
  for i:=1 to length(Str) do
    write(Str[i], ' ');
end.

var
  Count: integer;
  Str: string;
  i: byte;
begin
  writeln('Строка: ');
  readln(Str);
  for i:=1 to length(Str) do
    if Str[i] in ['0'..'9'] then inc(Count);
  writeln('Кол-во чисел в строке: ', Count);
end.

var
  s:string;
  i,j,n:byte;
begin
  write('n=');
  readln(n);
  write('String->');
  readln(s);
  for i:=1 to length(s) do
    begin
      write(s[i]);
      if i<>length(s) then
        for j:=1 to n do
          write('*');
    end;
end.

var
  s:string;
  i,k:byte;
begin
  write('String->');
  readln(s);
  k:=0;
  for i:=1 to length(s) do
    if s[i] in ['A'..'Z'] then
      inc(k);
  write(k);
end.

var
  CountSt, CountPr: integer;
  Str: string;
  i: byte;
begin
  writeln('Введите строку: ');
  readln(Str);
  for i:=1 to length(Str) do
    if Str[i] in ['a'..'z'] then inc(CountSt)
      else if Str[i] in ['A'..'Z'] then inc(CountPr);
  writeln('Кол-во прописных: ', CountPr, '; Кол-во строчных: ', CountSt);
end.

program Project1;
 
var
  s: string;
  count,i: integer;
 
begin
  write('Введите строку -> ');
  readln(s);
  for i:=1 to length(s) do
    if s[i] in ['a'..'z'] then inc(count);
  writeln(count);
  readln;
end.

const
  n = 10;
var
  arr: array[1..n] of real;
  Summa: real;
  i: byte;
begin
  writeln('Введите массив: ');
  for i:=1 to n do
  begin
    read(arr[i]);
    Summa:=Summa+arr[i];
  end;
  writeln('Среднее арифметическое: ', (Summa / n):0:2);
end.

const
  n = 10;
var
  Chislo, Summa: real;
  i: byte;
begin
  writeln('Введите ', n, ' чисел: ');
  for i:=1 to n do
  begin
    read(Chislo);
    Summa:=Summa+Chislo;
  end;
  writeln('Среднее арифметическое: ', (Summa / n):0:2);
end.