Какие пункты мы можем осуществить при выводе документа на печать?
1. Указать количество страниц
2. Указать печать нескольких страниц на одной
3. Указать печать 5 страниц на одной
4. Распечатать только отдельные страницы
5. Выбрать печать нескольких копий

program;   var  i: byte;   str: string;   begin  for i: =60 to 70 do  begin  str: =str+chr(i) ;   end;   writeln(str);   end.

56 кбит/с = 56000 бит/с (в скорости предачи данных обычно 1кбит/с = 1000 бит/с )

посчитаем кол-во данных, которые передали за 5 секунд:

56000 бит/с * 5 с = 280000 бит

в обычной кодировке один символ занимает один байт (то есть 8 бит)

посчитаем количество переданных символов текста:

280000 бит / 8 = 35000 символов

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

если что-то будет не так - напиши, испралю. у меня простог нет возможности проверить, выполняется  

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.

так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))