Câu 1:
uses crt;
var x, y, P: integer;
begin
clrscr;
write('Nhap x = '); readln(x);
write('Nhap y = '); readln(y);
P:=2*abs(x+y);
writeln('Gia tri cua P la: ', P);
readln
end.
Câu 2:
uses crt;
var a, b: integer;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
writeln('Trung binh cong cua hai so x va y la: ', (a+b)/2);
readln
end.