uses crt;
var
i,j,n,m:integer;
tus:char;
 
procedure ucgen;
begin
write('ucgen satir sayisini gir : ');
readln(n);
clrscr;
for i:=1 to n do begin
for j:=1 to i do begin
write('* ');
end;
writeln;
end;
readln;
end;
 
procedure kare;
begin
writeln('kare satir sayisini gir : ');
readln(n);
clrscr;
for i:=1 to n do begin
for j:=1 to n do begin
write('* ');
end;
writeln;
end;
readln;
end;
 
procedure dikdortgen;
begin
writeln('dikdortgen satir sayisini giriniz : ');
readln(n);
writeln('dikdortgen sutun sayisini giriniz : ');
readln(m);
clrscr;
for i:=1 to n do begin
for j:=1 to m do begin
write('* ');
end;
writeln;
end;
readln;
end;
 
begin
clrscr;
repeat
writeln('Cizmek istediginiz sekli seciniz.. [1:Kare,2:Dikdortgen,3:Ucgen] :');
readln(n);
 case n of
 1 : kare;
 2 : dikdortgen;
 3 : ucgen;
end;
 
writeln('Cikmak icin * karakterine basiniz.. ');
tus:=readkey;
until tus='*';
 
end.