24. Vytvorte program na nakreslenie štvorca alebo obdĺžnika zo znaku *. Dĺžka strán sa zadá na vstupe, pričom treba dodržať maximálnu veľkosť ktorejkoľvek strany 20. Ponúkne sa možnosť kresliť útvar prázdny alebo vyplnený hviezdičkami.
program stvorec;
uses crt;
var utvar,vypln:integer;
a,b,i,j:integer;
begin
clrscr;
writeln('1 - stvorec');
writeln('2 - obdlznik');
readln(utvar);
if (utvar=1) then
begin
repeat
write('Zadaj rozmer stvorca: '); readln(a); b:=a;
until ab) then
a:=a-b;
if (b>a) then
b:=b-a;
until (a mod b=0) or (b mod a=0) ;
if a>=b then
writeln(b);
if b>a then
writeln(a);
readln
end.