Воспользуйтесь учебником и привидите примеры словесной модели события.

Нужен учебник, так ничего не сказать : ) если это   информатичке понесёшь, то пиши что-то вроде этого:   "30 декабря в москве собрались делегации советских социалистических республик, которые утвердили договор и декларацию об образовании союза советских социалистических республик ()" - это словесная модель события.

1. берет m и будет суммировать 2    пр - m=1 / вывод: 1, 3 , 5 , 7 , 9   пр - m=2 / вывод: 2, 4 ,6 , 8, 2. не совсем 1) input m , r , n       for m = r to n step 2       s=s+m       next       print s 2) dim b(100) for i = 1 to 100 b(i)=1 next input z "вводишь сколько спортсменов выбыло while s< =z  input n   'вводишь номера спортсменов которые выбыли. b(n)=0 s=s+1 wend for i = 1 to 100 if b(i)> 0 then 'выбирает какие ячейки остались ( спортсмены) и пишет их позицию  print i  end if next

Program pascal; var  a, b, q, w, e, r, t: integer;   sqr:   string; begin  q: =3;   w: =5;   e: =7;   r: =9;   t: =11;   sqr: =sqr;   writeln('введите sqr то бы увидеть все квадраты и произведение всех квадратов');     write('введите нечетные числа. от 3 до 11: ');     read(sqr);     if sqr=sqr then    writeln('3*3= ', q*q);     writeln('5*5= ', w*w);     writeln('7*7= ', e*e);     writeln('9*9= ', r*r);     writeln('11*11= ', t*t);     writeln('произведения всех квадратов: ', q*q*w*w*e*e*r*r*t*t);   read(a);     if a=11 then      writeln('произведение квадратов: 11*11')      else      if a=9 then      writeln('произведение квадратов: 9*9')      else    if a=7 then      writeln('произведение квадратов: 7*7')      else    if a=3 then      writeln('произведение квадратов: 3*3')      else    if a=5 then      writeln('произведение квадратов: 5*5')      else      writeln('доступно: 3, 5, 7, 9, 11');   end.