Viết chương trình - DIện tích Hình chữ nhật - DIện tích hình vuông cần gấp

1 câu trả lời

+diện tích hình vuông:

program dientich; 
uses crt; 
var S,a:integer; 
begin 
writeln('nhap a'); 
readln(a); 
S:=a*a; 
writeln('ketqua',S); 
readln; 
end.

diện tích hình chữ nhất:

program Hinh_Chu_Nhat;

uses crt;

var a,b,S,: integer;

begin

writeln(‘Nhap_chieu_dai:’);

readln(a);

writeln(‘Nhap_chieu_rong:’);

readln(b);

S:=(a*b);

writeln(‘Dien tich la:’,S);

readln

end.

cho mik xin hay nhất nhé