Как Малевич рисует картины?
program narisuy_ka_ya_kartinu;
uses canvas, brush;
..........................
begin
a:=random (20)+5;//от балды
for i:= 1 to a do
begin
setcolor (random(256),random(256),random(256));//какой цвет выбрать? а какая епт разница?
if random(2)=0 then fillrect (random(GetWidth)-20,random(GetHeight)-20,random (10)+10,random (10)+10);//так... нарисую ка я квадратик...
else
fillellipse (random(GetWidth)-20,random(GetHeight)-20,random (10)+10,random (10)+10);//или кружочек лучше...
end;
setcolor (0,0,0);
drawtext ('Это не херня, это - абстракция!',0,0);
repaint;
delay (1000);
end.
Кстати, если снести uses, и описать переменные, то это вполне рабочая программа =)