program whileloop;
declare k:integer;
begin
   k:=10;
   while k=10 do
      write(k);
      k:=k-1;
   end;
end whileloop.