Sayaç

Yazdığınız programlar kaç kez çalştırılmış öğrenmek isterseniz işte size kolay kolay bulamayacağız bir kod
program sayac;
uses crt;
var
sayacds:text;
say:real;

begin
assign(sayacds,'sayac.txt');
{$i-}reset(sayacds);{$i+}
if ioresult<>0 then begin rewrite(sayacds);
say:=1; write(sayacds,(say):0:0); close(sayacds); halt;
end else
begin
assign(sayacds,'sayac.txt');
reset(sayacds);
readln(sayacds,say);
close(sayacds);
say:=say+1;
rewrite(sayacds);
write(sayacds,(say):0:0);
close(sayacds);
end;
end.