while(feltétel_1)do
begin
  while(feltétel_2) do   
  begin
    utasítás(ok);
  end;
  utasítás(ok);
end;