LP - Software que imprime em tela de 1 a 10 com o Loop For To Do - Pascal

Program Pzim ;
var cont:integer;

Begin
    for cont:=1 to 10 do
      writeln (cont);
End.