câu 1:
program oken;
uses crt;
var dai,rong:longint;
begin
clrscr;
write('nhap chieu dai: '); readln(dai);
write('nhap chieu rong: '); readln(rong);
writeln('chu vi hinh chu nhat: ',(dai+rong)*2,'cm');
writeln('dien tich hinh chu nhat: ',dai*rong,'cm^2');
readln;
end.
câu 2:
program oken;
uses crt;
var dai:integer;
begin
clrscr;
write('nhap canh cua hinh vuong: '); readln(dai);
writeln('chu vi hinh vuong: ', dai*4,'cm');
witeln('dien tich hinh vuong: ',dai*dai,'cm^2');
readln;
end.