ForNext

066. while

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

C++

C++Builder

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

Pascal

i := 0;
while i < 10 do
begin
  writeln(IntToStr(i));
  i := i + 1;
end

Ada

I := 0;
while I < 10 loop
  Put_Line(Integer'Image(I));
  I := I + 1;
end loop;

PL/SQL

i = 1;
sum = 0;
while i <= n loop
  sum = sum + i;
  i = i + 1;
end loop;

T-SQL