Zapisywanie 20 pierwszych liczb parzystych w pliku txt

Program który zapisuje 20 pierwszych liczb parzystych w notatnikowym formacie – txt.

Program zapisuje 20 pierwszych liczb parzystych do pliku tekstowego.

program liczb20;
var i:byte;liczba:integer;plik:text;
begin
for i:=1 to 20 do
        begin
          assign(plik,'liczby.txt');
          rewrite(plik);
          liczba:=i*2;
          writeln(plik,liczba);
          close(plik);
        end;
end.

Aby, program działał nie wymagane jest utworzenie pliku liczby.txt.