Repita Hasta - Pascal

Program Hasta;
uses wincrt;
var
x:integer;
begin
     clrscr;
     x:=0;
     REPEAT
     BEGIN
          x:=x+1;
          writeln(' Numero',x);

     END
     UNTIL x = 5;
     readln;
end.