nhật* Xác định bài toán :

- Input : chiều dài a, chiều rộng b

- Output : số mét lướt cần rào và diện tích miếng đất

* Viết chương trình :

uses crt;

var a, b, s, c : real;

begin

clrscr;

write('nhap chieu dai :');readln(a);

write('nhap chieu rong :');readln(b);

c := (a + b) * 2;

s := a * b;

writeln('so met luot can de rao la :', c :3:2);

writeln('dien tich mien dat la :', s:3:2);

readln;

end.

uses crt;

var a,b,S,C:integer;

begin

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

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

C:=(a+b)*2;

S:=a*b;

writeln('So met luoi can rao la:',C);

writeln('Dien tich la:',S);

readln;

end.