Bài 1:
Const Fi='Tep.TXT';
Var f: text;
a,b,i: longint;
s: qword;
Begin
Assign(f,Fi); Reset(f);
Read(f,a,b);
s:=1;
For i:=1 to b do
s:=s*a;
Write('S = ',s);
Close(f);
Readln
End.
Bài 2:
Const Fi='Tep.TXT';
Var f: text;
a,b,i: longint;
s: qword;
Begin
Assign(f,Fi); Reset(f);
Read(f,a,b);
s:=a+b;
Write('TBC = ',s/2:0:2);
Close(f);
Readln
End.