Program baitap;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('a='); Readln(a);

Write('b='); Readln(b);

Writeln('(a+b)*(a-b)=',(a+b)*(a-b));

Writeln('a*a*a-b*b*b=',a*a*a-b*b*b);

Writeln('a*a-2*a*b+b*b=',a*a-2*a*b+b*b);

Writeln('(a-b)/(a+b)=',(a-b)/(a+b):9:3);

Readln

End.

program tinh;

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap so nguyen a :');redaln(a);

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

writeln('gia tri cua bieu thuc 1 la :', (a + b)*(a - b));

writeln('gia tri cua bieu thuc 2 la :', a*a*a - b*b*b);

writeln('gia tri cua bieu thuc 3 la :', a*a*a - 2*a*b + b*b);

writeln('gia tri cua bieu thuc 4 la :', (a - b)/(a + b));

readln

end.