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

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