HF
public text v1 · immutableprogram negyzet;
uses grafika;
var x:integer;
begin
Randomize;
Setcolor(Random(16));
x:=Random(100)+20;
FilledRectangle(50,150,50+x,150+x);
FilledRectangle()
end.
program negyzet;
uses grafika;
var x:integer;
begin
Randomize;
Setcolor(Random(16));
x:=Random(100)+20;
FilledRectangle(50,150,50+x,150+x);
FilledRectangle()
end.