Установіть відповідність освітніх інтернет ресурсів.
1) навчальні А) телеконференції, форуми, віртуальні педради та
методоб’єднання
2) презентаційні Б) дистанційні курси, віртуальні школи, вебінар

3) оцінні В)персональні веб-сторінки освітніх закладів, презентацій для
уроків
4) консультаційні Г) електронні посібники, довідники, словники, бібліотеки,
віртуальні музеї
5) інформаційні Д) дистанційні конкурси, вікторини, олімпіади, турніри

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

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.

2 мальчика плывут на тот берег

1 мальчик возвращается

1 солдат плывет на тот берег

второй мальчик возвращается

2 мальчика плывут на тот берег

1 мальчик возвращается

1 солдат плывет на тот берег

второй мальчик возвращается

и так по кол-ву солдат

ну его в баню такую переправу и бедные мальчики

var s1,s2: string;

begin

  s1: ="параллелограмм";

  s2: ="гром";

  for i: = 1 to length(s1) do

  begin

      if i > length(s2) then s[i]='';

      if s1[i]< > s2[i] then s1[i]=s2[i];

    writeln(s1);

  end;

end.

чем не вариант, если правил нету)