Файлы могут быть организованы в виде линейной или иерархической файловой структуры
Program First;
var
a, b, c, d, m, n: integer;
begin
a:= 5;
b:= 9;
c:=7;
d:=13;
m:= a*d;
n:=b*c;
writeln(m, n);
end.
Var n, c, d, p: integer;
begin
readln(n);
p := 1;
while n<>0 do begin
d := n mod 10;
n := n div 10;
if d mod 2 = 1 then begin
p := p * d;
c := c + 1;
end;
end;
if c = 0 then writeln (0)
else writeln(Exp(Ln(p)/c):0:3);
<span>end.</span>
1 тяжелая атлетика
2 плавание
3 спортивная гимнастика
4 вроде бокс