Микрофон - <span>Ввод звука в компьютер</span>
var
i, s: integer;
begin
s:= 0;
for i:= 50 to 100 do
if (i mod 2 = 0) and (i mod 3 = 0) then s:= s + i;
writeln(s);
readln;
end.
Var
x, n: integer;
begin
x := 1;
readln(n);
while x*x <= n do
begin
writeln(x);
x := x + 1;
end;
end.