В приведенных фрагментах описания заголовков процедур выберите ошибочные: - Procedure Sum1 (a, b:Integer; Var c:integer): real;

- Procedure S2m3;

- Procedure 2S (a: Real; b: integer);

- Procedure SQ (a, c: array[1..10] of real);

Все неверные.

1. Нельзя так передавать массив в процедуру.

Сначала нужно сделать тип:

type test = array[1..10] of Integer;

Procedure SQ (a,c: test);

2. Шаблон функции, а не процедуры. :real не нужно.

3. Процедура не может начинаться с цифры.

200: 2

100|0

50|0

25|0

12|1

6|0

3|0

1|1

0|1

200₁₀=11001000₂

489: 2

244|1

122|0

61|0

30|1

15|0

7|1

3|1

1|1

0|1

489₁₀=111101001₂

543: 2

271|1

135|1

67|1

33|1

16|1

8|0

4|0

2|0

1|0

0|1

543₁₀=1000011111₂

950: 2

475|0

237|1

118|1

59|0

29|1

14|1

7|0

3|1

1|1

0|1

950₁₀=1110110110

1025: 2

512|1

256|0

128|0

64|0

32|0

16|0

8|0

4|0

2|0

1|0

0|1

1025₁₀=10000000001₂

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.