3.
uses crt;
Var a,b:longint; d:text;
begin
clrscr;
write('Chieu dai: ');readln(a);
write('Chieu rong: ');readln(b);
assign(d,'input.pas');rewrite(d);
writeln(d,'Chu vi: ',(a+b)*2);
writeln(d,'Dien tich: ',a*b);
close(d);
readln
end.
4.
uses crt;
Var i,j,a:longint; d:text;
begin
clrscr;
randomize;
while a<5 do a:=random(10);
for i:=a to a+5 do
begin
for j:=1 to i do write('*'); writeln;
for j:=a to a+2 do
begin
write('*');
gotoxy(i,wherey); write('*');
writeln;
end;
for j:=1 to i do write('*'); writeln;
end;
readln
end.
