All pastes #1706758 Raw Edit

negyzet

public text v1 · immutable
#1706758 ·published 2009-12-08 11:12 UTC
rendered paste body
program negyzet;
uses grafika;
var x:integer;

begin
Randomize;
Setcolor(Random(16));
x:=Random(300);
FilledRectangle(100,50,100+x,50+x);
end.