B3/
program Hello;
uses crt;
var a, x, y, om: real;
begin
write('M(x, y): ');
readln(x, y);
write('a = ');
readln(a);
om:= sqrt(x*x + y*y);
if a > om then
writeln('M nam trong (O,a).')
else
writeln('M nam ngoai (O,a).');
readln;
end.
B4/
program Hello;
uses crt;
var y: real;
i: byte;
begin
for i:= 1 to 50 do
y:= y + (i/(i+1));
writeln('y = ', y:2:2);
readln;
end.
B5/
program Hello;
uses crt;
var a, b, t: real;
m: longint;
begin
readln(a, b);
while a < b do
begin
a:= a + (a / 10);
m:= m + 1;
end;
writeln(m, ' thang. ');
readln;
end.
