fisier.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 10 行

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