Написать программу которая вводит с клавиатуры два числа с помощью цикла while выво?

Var     a, b: integer; begin     readln(a, b);     while b > 0 do     begin         writeln(a);         b := b - 1;     end; end.