//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqInteger(8).Where(x->(x mod 3=0) and (x mod 10=4)).Count());
end.
Предназначен для исполнения<span>может иметь бесконечное число шагов.
</span>
Var a, b, c, d, h, i:integer;
begin
read (h);
write (1200*9.8*h);
end.
P.S. Благодарность не помешает.
АБЕЖДГВ
сначала протокол, потом ://, потом сервер, потом /, потом имя файла)
Это обонятельная информация
так как говорится про запах, а нос это орган обоняния