about summary refs log tree commit diff
path: root/12/TP-2008/R1/BL1.PAS
blob: 6931b1be8472efcbe35aef3b5d22572cc8316ecb (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses math;

var
  f : text;
  m, n, i : byte;
  a, b : double;
j
begin
  assign(f, 'LT.IN');
  reset(f);
  read(f, n, m);
  close(f);
  a := 1;
  for i := 1 to n do
    a := a * 2;
  b := 1;
  for i := 1 to m do
    b := b * 3;
  a := a + b;
  for i := 1 to trunc(log10(a)) do
    a := a / 10;
  assign(f, 'LT.OU');
  rewrite(f);
  writeln(f, trunc(a));
  close(f)
end.