LP - Loop While - Pascal

Comando While


Program Pzim ;

var i : integer ;

 Begin
     i : = 0 ;
     while ( i < = 5 ) do
    begin
        writeln ( ' O valor atual de i é ', i ) ;
          i : = i + 1 ;
     end ;
 End .