bai tap pascal 11 day

cau 1: dung vong lap for ve ra tam giac can bang dau * va tinh S
cau 2: dung vong lap for ve ra hinh binh hanh va tinh S
co giup em nhe Thanks.

Câu 1:
program ve_TG;
uses crt;
var
begin
clrscr;
write('nhap chieu cao cua tam giac');readln(h);
{Ve dinh tam giac}
Writeln('*':h);
{Ve 2 canh tam giac}
For i:=1 to h-2 do writeln('*':h-i,'*':2*i);
{Ve day tam giac}
For i:=1 to 2*h-1 do write('*');
readln;
end.
Bài này mình vẽ 1 tam giác cân rỗng bằng các dấu '*'. Còn muốn tam giác đặc thì bạn sửa lại đôi chút ^^!.
Câu 2: Chưa nghĩ ra hướng :D

uses crt;
var i,a,ch:integer; d,s,h,goc:real;
begin clrscr;
{Vẽ hình bình hành dựa vào: Cạnh a, cạnh huyền ch, góc radian < =1 goc <=180 }
{Không thể vẽ chính xác được. dơn vị làm tròn là 1 đơn vị. }
readln(a,ch,goc);
h:=ch*sin(goc);
d:=ch*cos(goc);
write('':round(d));
{ve day}
for i:=1 to a do write('*');
writeln;
{ve canh hai ben}
for i:=1 to round(h)-2 do writeln('*':round(h),'*':a-1);
{ve day}
for i:=1 to a do write('*');
Writeln('Dien tich la',abs(a*h):8:1);
readln
end.