Определить и вывести на экран цифры целого числа п
с цикла repeat.
(В паскале) ​

1 - в) caa
2 - в) в столбик
3 - в) char
4 - в) пояснительный текст не нужен
5 - в) символ заключается в апострофы

1)
Var s1: string;
i,a:integer;
Begin
Writeln ('введите текст');
Readln (s1);
for i:=1 to length(s1) do
if (s1[i]='а')or(s1[i]='a') then a:=a+1;
writeln('количество букв а в тексте: ',a);
End.

2)
Var s1,s2: string;
Begin
Writeln ('введите первую строку');
Readln (s1);
Writeln ('введите вторую строку');
Readln (s2);
if length(s1)=length(s2) then writeln('длины строк совпадают')
else writeln('длины строк не совпадают')
End.

Const
  n = 20;

var
  x: array[1..n] of integer;
  i: integer;

begin
  Randomize;
  Writeln('*** Исходный массив ***');
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i]:4);
  end;
  Writeln;
  Writeln('*** Результирующий массив ***');
  for i := 1 to n do
  begin
    if (x[i] mod 2) = 0 then x[i] := 0;
    Write(x[i]:4);
  end;
end.

Тестовое решение:
*** Исходный массив ***
  -4  -8  42  18  -4 -19 -35  21  19  32 -45  45 -43 -22 -17 -12  11   9 -47  37
*** Результирующий массив ***
   0   0   0   0   0 -19 -35  21  19   0 -45  45 -43   0 -17   0  11   9 -47  37