Печатать 0 (ноль) указанное количество раз. Для решения задачи использовать цикл Repeat или While.Cрочно

var n: integer;

begin

write('Введите n: ');

readln(n);

while n>0 do  

begin

write(0);

n:=n-1;

end;

end.

Заменяет в строке
var
  s : string;
  i, lim : integer;
begin
  readln (s);
  i := 1;
  lim := length (s);
  while (i <= lim) do
  begin
    if s[i] in ['1'..'9'] then
    begin
      if (s[i] = '1') and (i <> length (s)) and (s[i+1] ='0') then
      begin
        write ('ten');
        inc (i);
      end
      else
      case s[i] of
        '1' : write ('one');
        '2' : write ('two');
        '3' : write ('three');
        '4' : write ('four');
        '5' : write ('five');
        '6' : write ('six');
        '7' : write ('seven');
        '8' : write ('eight');
        '9' : write ('nine');
      end;
    end
    else write (s[i]);
    inc (i);
  end;
end.

А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.