Bài 1 :
uses crt;
var x : real;
begin
clrscr;
write('nhap so thuc x :');readln(x);
if x > 0 then writeln('can bac hai cua ', x ,' = ', sqrt(x):3:1)
else writeln(x, khong phai la so nguyen duong');
readln
end.
Bài 2 :
uses crt;
var w, h, bmi : real;
begin
clrscr;
write('nhap chieu cao cua co the (met) :');readln(h);
write('nhap can nang cua co the (kg)  :');readln(w);
bmi := w/(h*h);
writeln('chi so BMI la :', bmi:8:2);
if bmi < 18.5 then writeln('om');
if (bmi >=18.5) and (bmi < 25) then writeln('can doi');
if (bmi >= 25) then writeln('beo phi');
readln
end.

Bai 1:

uses crt;

var x:real;

begin

write('nhap x: ');readln(x);

if x > 0 then write('can bac 2 cua x: ',sqrt(x))

else write('x khong phai la so duong');

readln;

end.

Bai 2:

uses crt;

var nang,cao,bmi:real;

begin

clrscr;

write('nhap can nang: ');readln(nang);

write('nhap chieu cao: ');readln(cao);

bmi:=nang/(cao*cao);

if bmi < 18.5 then writeln('om')

else if bmi < 25 then writeln('can doi')

else writeln('beo phi');

readln;

end.