Pascali põhitõed
*)
until arv=0; (* ... kuni arv on 0. tsükli lõpp *)
writeln('See on kõik.');
end.
Programminäide 10. Loome faili ja sisestame rühma nimekirja.
program Nimekiri1;
(* Programm sisestab rühma nimekirja. Nimekirja lõppu *)
(* sisestada nime kohale " - " (kriips või miinus) *)
var nimi : string;
nimefail : text;
begin
rewrite (nimefail, `nimekiri.dat');
repeat
write ( ' Sisesta nimi: ' );
readln (nimi); (* loetakse nimi .... *)
write(nimefail, nimi); (* ... ja kirjutatakse nimefaili *)
until nimi = ' - ';
writeln('Ongi kõik.');
end.
Programminäide 11. Kasutame eelmise programmi faili.
program Nimekiri2;
(* programm väljastab rühma nimekirja *);
var nimi : string;
nimefail : text;
begin
reset (nimefail, `nimed.dat');
writeln( ' Rühma OHOO-11 nimekiri : ' );
writeln( ' ----------------------------------- ' );
while not Eof( ) do (* tee kuni faili lõpuni *)
begin
read(nimefail, nimi);
writeln(nimi);
end;
end.
PROOVIGE ISE:
1
annaabi.ee 
