Я не розумію українську мову
Бабушек ехало 2^n
Если 2^n-k>0, значит бабушки не поместились
Свободных мест 2^n-k
Program calculator;
Var a,b: real;
Begin
Write('Первое число:');
readln (a);
Write('Второе число:');
readln (b);
Write('Результат: ',a+b);
End.
Var a:array[0...6] of integer;
sum, i, N, x : integer;
begin
readln(N);
for i 1 to N do begin
sum:=0;
readln(x);
if x mod3 = 0
sum:=sum+x
end;
writln(sum);
end.