fisier.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program fisier;
var fis:text;
    a:integer;
begin
writeln('a= ');
readln(a);
assign(fis,'zzz.txt');
writeln(fis,650);
close
end.