program chuongtrinh_menu;
uses crt;
var a,b,h:integer;
ch:char;


{*** thu tuc ve hinh chu nhat dac ***}
procedure hcn(cdai,crong:integer);
var i,j:integer;
begin
    write('nhap chieu dai va chieu rong:');readln(cdai,crong);
    for i:=1 to crong do
        begin
            for j:=1 to cdai do write('*');
            writeln;
        end;
end;


{*** thu tuc ve hinh tam giac dac ***}
procedure tamgiac(h:integer);
var i,j:integer;
begin
    write('nhap chieu cao h=');readln(h);
    for i:=1 to h do
        begin
              for j:=1 to i do
              write('*');
              writeln;
        end;
end;


{*** ham chinh ***}
begin
    clrscr;
    repeat
    writeln('1. Ve hinh chu nhat');
    writeln('2. Ve tam giac');
    writeln('3. Thoat');
    write('Nhap lua chon : ');readln(ch);
    case ch of
    '1': hcn(a,b);
    '2': tamgiac(h);
    end;
    until ch='3' ;
    readln;
end.