** языке Pascal ABC реализовать программу,выводящую первых K четных чисел...

Question

На языке Pascal ABC реализовать программу,выводящую первых K четных чисел 2,6,10,14...K.(K задаётся с клавиатуры)
можно пожалуйста через while и repeat
и с объяснением 

Answer 1

Program znanija2;
var number, K:integer; //определяем переменные, number - переменная для вывода
begin
  readln(K); //читаем K c клавиатуры
  while number <> K do begin //ставим условия пока number не будет равнятся K
    number:=number+2; //повышаем number на 2
    writeln(number); //выводим number на экран с новой строки
  end;
end.