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.
recepkaramanli61@hotmail.com
recep karamanlı
recepkaramanli61@hotmail.com