// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var k:=ReadInteger(K=);
var n:=ReadInteger(N=);
for var i:=1 to 2*n+1 do Writeln(k)
end.
Пример
K= 666
N= 5
666
666
666
666
666
666
666
666
666
666
666
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.