cái này thì mình ko chắc lắm!
Program Chu_nhat
uses crt;
Var x, y, S;
Begin Write(“Nhap chieu dai:”);
readln(x);
Write(“Nhap chieu rong:”);
readln(y);
S := x*y;
Writeln(“Dien tich hinh chu nhat la:”,S)
readln;
end.
Program HOC24;
var x,y: integer;
s: longint;
begin
write('Nhap chieu dai: '); readln(x);
write('Nhap chieu rong: '); readln(y);
S:=x;
S:=s*y;
write('Dien tich dien hinh chu nhat la: ',s);
readln
end.