Question

Введите на экран двойные числа от 1 до К .

Answer 1

var i,k:integer;

begin

readln(k);

for i:=1 to k do

write(i,' ',i,' ')

end.