Bài 1:
uses crt;
var x,y :integer;
begin
write('Nhap x: '); readln(x);
write('Nhap y: '); readln(y);
clrscr;
write('x^2 + y^2 = ', x*x + y*y);
write('2xy + 15x = ',2*x*y+15*x);
readln;
end.
Bài 2:
uses crt;
var a,b:integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a>b then
begin
max:=a;
min:=b;
end
else
begin
max:=b;
min:=a;
end;
clrscr;
writeln('So lon nhat la: ',max)';
write('Thuong so lon va so be la: ',max div min);
readln;
end.