2 câu trả lời
uses crt;
var Z, a, b : integer;
begin
clrscr;
write('Nhap so a, b : '); readln(a, b);
if a >= b then begin
Z := a * a + 4 * b * b;
write('Z = ', Z);
end; readln
end.
program tinhz;
uses crt;
var a,b,z : integer;
begin
clrscr;
z:=0;
write('nhap a',a); readln(a);
write('nhap b',b); readln(b);
if a>= b then
z:=sqr(a) +4*sqr(b) ;
writeln('Z=',z:2:2);
readln
end.
