нуу как то так...
uses GraphABC;
var x1,x2,y1,y2: integer;
begin
setwindowsize(600, 400);
for var i:=1 to 20 do
begin
SetPenColor(clrandom);
Setbrushcolor(clrandom);
x1:=Random(128);
y1:=random(265);
x2:=random(449);
y2:=Random(365);
line(x1,y1,x2,y2);
end;
end.
11000000 = 192 в десятичном представлении
Вот) Тут используется формула
var
D, y, x, v: real;
begin
writeln('Enter x, y and v:');
readln(x, y, v);
y := exp(5*ln(y)); { y^5 }
x := exp(12*ln(x)); { x^12 }
v := exp(7*ln(v)); { v^7 }
v := exp(9*ln(cos(v))); { cos(v^7)^9 }
writeln(x, ' ', y, ' ', v);
end.