Написать программу на языке Pascal. Написать программу, которая выводит 10 одинаковых чисел

хэй, а лучший ответ :D

var a,b,c,d:integer;beginb:=0;randomize;a:= random(1000);while b<>10 dobeginwriteln (a);b:=b+1;end;end.