Составить программу, которая выводит на экран символы с 33 по 255 и их номера

var i: integer;

begin

  for i: = 33 to 255 do

      writeln(i,' = ', chr(i));

end.

//pascalabc.net 3.1 сборка 1200 begin       var s : = readstring('s = ');       if s='' then s: ='какое небо голубое, какой богатенький буратино';       writeln(s);       s : = s.trim();       s : = s.replace(',', ' ');       s : = s.replace('; ', ' ');       s : = s.replace('.', ' ');       s : = s.replace('  ', ' ').replace('  ', ' ').replace('  ', ' ').replace('  ', ' ');       for var i : = 1 to s.length - 1 do               if s[i] = ' ' then                       s[i + 1] : = s[i - 1];       writeln(s); end.

Program vasil ; var n , m  : integer ; begin   write ( 'vvedi chislo bochek n=' ) ;   readln ( n ) ;   m : = n mod 10 ;       if ( m = 1 and n < > 11  ) then writeln ( n , '  bochka' )      else if (m < = 4 and n < > 12 and n < > 13 and n < > 14 and m < > 0) then writeln ( n , ' bochki' )        else writeln ( n , ' bochek' ) ;   end.    так, наверное. если будет косяк, то пиши, или сам сообрази где ошибка. сейчас нет под рукой компилятора, не могу оттестировать.