Нужно нарисовать елочку через координаты(gotoxy) используя символ например "*".
Я нарисовал, но код некрасивый, учитель сказал нужно зациклить, как не пытаюсь не получается, помогите пожалуйста.
Вот мой код с елочкой:
program tema;
uses crt;
var
x,y:byte;
begin
clrscr;
textcolor(10);
gotoxy(40,5);
writeln('*');
gotoxy(39,6);
writeln('***');
gotoxy(38,7);
writeln('*****');
gotoxy(37,8);
writeln('*******');
gotoxy(40,9);
writeln('*');
gotoxy(39,10);
writeln('***');
gotoxy(38,11);
writeln('*****');
gotoxy(37,12);
writeln('*******');
gotoxy(40,13);
writeln('*');
gotoxy(39,14);
writeln('***');
gotoxy(38,15);
writeln('*****');
gotoxy(37,16);
writeln('*******');
textcolor(6);
gotoxy(39,17);
writeln('***');
gotoxy(39,18);
writeln('***');
readln;
end.