uses crt; var a,b : real; begin clrscr; write('Nhap so thuc a :'); readln(a); write('Nhap so thuc b :'); readln(b); {Phan a} Write('Trung binh cong cac binh phuong hai so do la :'); Write((a*a+b*b)/2:0:0); writeln; {Phan b} write('Trung binh cong cac gia tri tuyet doi cua hai so do la :'); write((abs(a)+abs(b))/2:0:0); readln end.
program oken; uses crt; var a,b: real; begin clrscr; write('Nhap a: '); readln(a); write('Nhap b: '); readln(b); writeln(' a)TBC binh phuong hai so vua nhap: ',(sqr(a)+sqr(b))/2:0:3); writeln(' b)TBC gia tri tuyet doi hai so vua nhap: ',(abs(a)+abs(b))/2:0:3); readln; end.
