Написать программу в паскале которая рисует звездочки на весь экран вот так:
*
**
***
****
******
*******
И так далее до конца экрана

var n,k:integer;begink:=0;while k>=0 dobegink:= k+1;for n:=1 to k dobeginwrite('*');end;writeln;end;end.