нужны координаты на имя соня в исполнителе чертежник

var a: array [1..10] of integer;

s,i,c,b: integer;

begin

  read(c,b,n);

  randomize;

  for i : = 1 to n do

        a[i]: = random(b) -c+1;

  for i: = 1 to n do

        if i mod 2 = 0 then s: =s+1;

  writeln(s);

end.

1. по буквам

2. по слогам

3. по согласным

4. произношение на оборот

5. по 1ой букве в алфавите. н-р весна в-3-я буква, р-18-я в алфавите

var a,b: integer;

begin

  read(a,b);

  writeln("s=",a*b/2);

end.

подвести курсор справа от удаляемого символа

клацнуть бэкспейс

радоваться