1) Для четверки:
program ryazantsev;
var i,n,t,s:integer;
begin
s:=0;
readln(n);
for i:=1 to n do begin
readln(t);
if (t mod 4 <> 0) and (t in [10..99]) then s:=s+t
end;
writeln(s)
end.
2) Для семёрки:
program ryazantsev;
var i,n,t,s:integer;
begin
s:=0;
readln(n);
for i:=1 to n do begin
readln(t);
if (t mod 7 <> 0) and (t in [10..99]) then s:=s+t
end;
writeln(s)
end.
Если перевести 14 байт в биты то будет 112 бита
Конструкция SmallString = string[l]; объяляет тип SmallString как строку из l символов. Для такого объявления l должно быть задано выше константой.
Дом-дым
мел-мол
тик-так
пил-пол
сыр-сэр
сон-сын
суд-сад
дул-дол