urut tingkat

program tingkat;
uses wincrt;
var
 bahasa         : string[50];
 urutan,posisi  :integer;
begin
 bahasa:='**********';
 for urutan:= 1 to 10 do

 begin
  posisi := 12 - urutan;
  delete(bahasa,posisi,1);
  writeln(bahasa);
 end;
end.