ответ:
в те времена, когда компьютеры и интернет были предметами шика и роскоши, безумной популярностью пользовались компьютерные игровые клубы. десятки тысяч школьников по всей стране просиживали там практически всё своё свободное время. этот пост для тех, кто помнит что такое «пойти толпой на ночь». в клубах была своя атмосфера. в прямом смысле слова: обычно здесь было душно, пахло куревом и дешёвым мужским одеколоном. основной контингент — школьники практически всех возрастов. клубом админ. , это был царь и бог, с которым все старались завести дружбу потому что друзьям админ разрешал играть бесплатно. а ещё он сам мог играть во что угодно за своим главным компом, да ещё и получать за это деньги. тогда для всех посетителей клуба это было пределом мечтаний.
объяснение: выбери кратко какую-нибудь инфу
var i,j,n,k,k1,k2,k3: integer; bb: boolean;
a: array of integer;
begin
write('N = ');
readln(n);
if ((n mod 3 = 0) and (n<>0)) then begin
write('K1 = ');
readln(k1);
write('K2 = ');
readln(k2);
write('K3 = ');
readln(k3);
setlength(a,n);
for i:=0 to n-1 do begin
write('Заполним номер ',i+1,' -> ');
readln(a[i]);
end;
i:=0;
while (i<n) do
begin
a[i]:=k1-a[i];
a[i+1]:=k2-a[i+1];
a[i+2]:=k3-a[i+2];
inc(i,3);
end;
write('K = ');
readln(k);
for i:=0 to n-2 do
if (a[i]+a[i+1]>=k) then begin write('В комнатах ',i+1,' и ',i+2,' есть ',a[i]+a[i+1],' свободных мест'); bb:= true; end;
if (bb=false) then writeln(0);
end else writeln('Введите число кратное 3 и неравное 0');
readln;
end.
