Nhập 2 số nguyên a,b từ bàn phím .tính rồi đưa ra màn hình các biểu thức sau : - a^2 +b^2 - a^3 +b^3 - a+b /2

program sksk;

uses crt;

var a, b : integer;

begin

clrscr;

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

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

writeln('a^2 + b^2 =', sqr(a) + sqr(b));

writeln('a^3 + b^3 =', sqr(a)*a + sqr(b)*b);

writeln('a + b/2 =', (a + b/2):4:2 );

readln

end.

program tinh;
Uses crt;
Var
    a,b:integer;
Begin
    clrscr;
    write('Nhap a: '); readln(a);
    write('Nhap b: '); readln(b);
    writeln('a^2 + b^2 = ',a*a+b*b);
    writeln('a^3 + b^3 = ',a*a*a+b*b*b);
    writeln('a+b/2 = ',(a+b)/2:0:1);
    Readln;
end.

#HNgoc