написать программу которая вводит с клавиатуры два числа с помощью цикла while выводить на экран число a в раз

var
    a, b: integer;

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