нуу как то так...
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.
Всё решение на фото. Если что непонятно - спрашивайте.
300 на 200 умножить и найти 40% от этого и прибавить 16384 умноженное на 200
Function srarifm;
var mas1,mas2 : array[1..100000] of longint;
i,n1,n2 : longint;
sum1,sum2:real;
begin
sum1:=0; sum2:=0;
for i:=1 to n1 do begin
sum1:=sum1+mas1[i];
end;
for i:=1 to n2 do begin
sum2:=sum2+mas2[i];
end;
if sum1/n1>sum2/n2 then writeln(1) else if sum2/n2>sum1/n1 then writeln(2) else writeln(=)
end;
Ну вроде так... Хотя ничего не обещаю)