1-я Ошибка: пропущено слово array.
2-я Ошибка: of integer написано слитно.
Исправленный вариант: consta:array[1..4]of integer=(11,7,61,107);
Ответ:2)
<span>1) Смирнов </span>
<span>Иванов </span>
<span>Кузнецов </span>
<span>Попов </span>
<span>Соколов </span>
<span>Лебедев </span>
<span>Козлов </span>
<span>Новиков </span>
<span>Морозов </span>
<span>Петров
</span>2) кардиган
3) Не знаю, прости
4) Тоже не знаю)
5) Укроп
6) Не знаю
7)
<span> “О бедном гусаре замолвите слово”
8)</span><span>Царь персов Ксеркс пошел в V веке до н. э. войной на Грецию. Персы перебросили мосты через Гелеспонт-пролив, отделяющий Европу от Азии. Буря разметала эти мосты. Разъяренный деспот приказал высечь море цепями, наложить на него клеймо преступника и опустить в воду оковы, приговаривая: "Тебя, горькая вода, казнит владыка за то, что ты причинила ему пакет, не будучи обиженным им. Царь Ксеркс переступит через тебя, делаешь ты этого или нет". А царь Кир наказал "за плохое поведение" речку Гинда-в ее водовороте утонула лошадь царя. Разгневанный Кир повелел переломать реку 360 каналами, превратив реку в ручеек.
Всё, надеюсь помогла)))</span>
Program bip;
var a,q,n:integer;
begin
writeln('введите четыре числа');
readln(a);
q:=0;
n:=1;
while (n<>4) do
begin
if (a>q) then
q:=a;
readln(a);
n:=n+1; end;
writeln('большее из пяти ',q)
;<span>end.</span>
Program n1;
var a: integer;
begin
readln(a);
if a mod 3=0 then writeln('делится') else writeln('не делится');
end.
1. 7*2 = 14 (1)
2. 14-1 = 13 (2)
3. 13*2 = 26 (1)
4. 26*2 = 52 (1)
Ответ: 1211
