//PascalABC.NET
//Версия 3.3, сборка 1634
begin
range(10,99).Where(x->x*x mod 13=0).Println;
end.
В В5 ответом будет 7, точно такой же ответ в B4
<span>Больше для жителей планеты Принтер на 10 бит.</span>
Var n,m,s,i,kol:int64;
begin
read(n);
for i:=1 to n do begin
read(m,s);
if (m<18) then inc(kol);
if (m=18) and (s<=30) then inc(kol);
end;
writeln(kol);
end.
Устаревшая, то есть для вас уже не актуальна