Program ORNEK1;

uses crt;

var n1,n2:integer;

veri1:text;
begin

clrscr;

writeln('Program basladı');

assign(veri1,'D:/DATA.txt');

reset(veri1);

repeatreadln(veri1,n1);

writeln(n1);

until eof(veri1);

writeln('Program sonuclandı');

close(veri1);

readln;
end.

Program ORNEK2;

uses crt;

var n:integer;

sonuc1:text;
begin

clrscr;

writeln('Program basladı');

assign(sonuc1,'D:/cikti.son');

rewrite(sonuc1);

writeln(sonuc1,'Program basladi');

writeln('Program sonuclandı');

close(sonuc1);

writeln('Bir tusa basınız');

readln;
end.

Program ORNEK 3;

var n1,n2:integer;

sonuc1,veri1:text;
TOP,CARP:integer;

begin
writeln('Program basladı');

assign(veri1,'D:girdi.txt');

reset(veri1);

assign(sonuc1,'D:/cikti.abc');

rewrite(sonuc1);

readln(veri1,n1);

readln(veri1,n2);

TOP:=n1+n2;

CARP:=n1*n2;

writeln(sonuc1,' 2 sayinin toplam');

writeln(sonuc1,TOP:6);

writeln(sonuc1,' 2 sayinin carpim');

writeln(sonuc1,CARP:6);

close(sonuc1);

close(veri1);

writeln('Bir tusa basınız');

readln;
end.