Изменить программу

[HECTOR.A.]

uses crt,dos;
var i: integer;
begin
textBackGround(White);
clrscr;
textbackground(blue);
window(12,10,48,20);
clrscr;
writeln('* * *');
writeln;
writeln; writeln; writeln;
writeln(' * * ' );
writeln; writeln; writeln; writeln; writeln;
writeln(' * * *');
for i:=1 to 22 do
begin
gotoxy(15+i, 7);
write('*');
delay(9000);
gotoxy(15, 7);
clreol;
end;
readkey
end.

В программе выполните следующие изменения:
• уберите курсор (в конце программы верните курсор),
• поместите окно в середину экрана,
• измените программу так, чтобы звездочка желтого цвета падала вертикально.
hector.A. на форуме Пожаловаться на это сообщение Добавить отзыв для hector.A. Сказать спасибо за это полезное сообщение Редактировать/удалить сообщение