Hãy nhập vào hai số nguyên a và b (0 ≤ a, b ≤ 32767) từ bàn phím. Hãy xuất ra màn hình tổng √𝑎+√𝑏, hiệu √𝑎−√𝑏.

program tinh;

uses crt;

var a, b : integer;

begin

clrscr;

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

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

writeln('tong can bac hai cua a va  b la :', sqrt(a) + sqrt(b));

writeln('hieu can bac hai cua a va b la :', sqrt(a) - sqrt(b));

readln

end.

Program baitap;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

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

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

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

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

Readln

End.