Файл және оны баптау

ma,inf,ist: byte;
begin
assign(f,c:klass. txt);
reset(f);
readln(n);
for i:l to n do
begin
readln(f,t);
readln(f,fi,ma,inf,ist);
if fimainfist20 then writeln (f,fi,ma,inf,ist);
end;
close(f);
end.

Сабақты қорытындылау:
integer типтi 10 мәні бар файл құрыңдар. Файлды оқыңдар да, оның элементтерінің қосындысын есептеу.
program 5;Элементтер косындысы
var f:text;m,s,i,n:integer;
begin
assign(f, с :kl,txt) ;rewrite(f);
for i:l to 10 do
begin
readln(m); writeln(f, m); end;
close(f);
reset(f); for i:l to 10 do begin
readln(f,m);s:sm; end;
close(f);writeln(s,s);
end.

Бағалау. Оқушыларды деңгейіне қарап бағалау

Үйге тапсырма: Тақырыпты оқу
integer типті N элементтен тұратын файлды жасайтын программа құрыңдар. Тек жұп элeмeттepi ғана шығару.
program6;oi yeaiai6oa6 var f:text;m,s,i,n:integer; begin
assign(f, c :kl,txt) ;rewrite(f) ;readln(n);
for i:l to n do
begin
readln(m) ;writeln(f,m);
end;
close(f);
reset(f); for i:l to n do
readln(f,m);if not odd(m) then writeln(m);
end;
close(f);
end.