Bài 1:
uses crt;
var a,DT,CV: integer;
Begin
clrscr;
Write('Nhap chieu dai canh: a= '); readln(a);
CV:=a*4;
DT:=a*a;
writeln('Chu vi la: ',CV,' cm');
writeln('Dien tich la: ',DT,' cm2');
readln
end.
Bài 2:
uses crt;
var v,g,h: real;
Begin
clrscr;
Write('Nhap do cao: h='); readln(h);
g:=9.8;
v:=sqrt(2*g*h);
writeln('Van toc roi cua vat la: ',v:1:2,' m/s');
readln
end.