Aula 05 While Algoritmo

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

program Aula05_While;
uses Crt;
Var a,i: integer;
begin
 while i < 5 do begin
 	 i:= i+1;
 writeln (i);
 end;
end.