Program BT;
Uses crt;
Var a, b, sum, res, i: longint;
Begin
        Clrscr;
        Write('Nhap hai so a va b: '); Readln(a, b);
        sum := a + b;
        res := 1;
        For i := 1 to b do
                res := res * (a + b);
        Writeln('a. ', sum);
        Write('b. ',res);
        Readln
End.

program sksk;

uses crt;

var a, b, y : integer;

begin 

clrscr;

write('nhap so a :');readln(a);

write('nhap so b :');readln(b);

y := sqr(a + b) + b;

writeln('tong hai so ', a ,' va ', b ,' la : ', a+b);

writeln('gia tri cua bieu thuc la :', y);

readln

end.