<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
1.To(ReadInteger('н=')).Println
end.
<u>Пример</u>
н= 13
1 2 3 4 5 6 7 8 9 10 11 12 13
Восемь восемьсот, пять пять пять три пять три пять . проще позвонить чем у кого-то занимать!)
Восемь восемьсот, пять пять пять три пять три пять . проще позвонить чем у кого-то занимать!
Var i: integer;
begin
for i:=1 to 9 do
writeln('7 * ', i, ' = ', 7 * i)
<span>end.</span>