Уровень B. 7. Оформите программу на языке Паскаль так, чтобы сохранилось все форматирование. 8. Выделите слова «сервер» и «клиент» в первом абзаце с тэга EM. 9. В следующих двух абзацах выделите определяемые слова («сервер» и «клиент») с тэга DFN, а английские слова – с тэга EM.

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end. 

я так понимаю нужно нарисовать рисунки рыб, карасей и различных животных. множества нужно перекрестить(множество рыб и хищ. животных), так как рыба тоже может быть хищником

9 кбатй = 73728 бит

73728/1536=48сек

1024*48=49152бит=6164 байт ( 1 байт = 8 бит)

строку наоборот?

var s: string;

i: integer;

begin

  read(s);

  for i: = length(s) downto 1 do

        s1: = s1+s[i];

  writeln(s1);

end.