Составить программу вывода любого числа любое заданное число раз в виде, аналогичном показанному в предыдущей

Uses crt;
var a: real; N,i: integer;
begin
clrscr;
write ('a= ');
readln (a)
;write ('N= ');
readln (N);
for i:=1 to N do
write (a,' ');
readln ();
end.