Aula 05 ParaEnquantoRepita

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

{ATENÇÃO: Esta rotina ainda está em desenvolvimento.
 O código gerado pode apresentar incorreções sintáticas. }
program semnome;
uses Crt;
{ Função :}
{ Autor :}
{ Data : 26/3/2009}
{ Seção de Declarações}
var
x,y:integer;
begin
 readln (y);
 for x := 1 to y do begin
 write (x);
 readln (y);
 end;
 x:= 1;
 while x <= 10 do begin
 write (x);
 x := x + 1;
 end;
 x:= 1;
 repeat
 write (x);
 x := x + 1;
 until x > 10;
end.