Сочинение на тему: Текстовый редактор MS Word. Отвечая на следующие во Зачем мы изучали MS Word? Чем может в будущем для вас MS Word? Возможности MS Word. И что нового узнали изучая это приложение?

может быть крик?

решение должно иметь од 20 до 5000

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.

а где сама таблица? все равно она везде одинаковая, так что держите фрагмент ваш:

byck is my dog.

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.