Сначала надо выяснить, что и сколько покупатели просят;
Потом подсчитать стоимость;
Расплатиться (отдать товар и принять стоимость (деньгами))
Алгоритм простой, нам нужно как-то обсчитать расстояние точек друг от друга. Делается это формулой sqrt((x1-x2)^2 + (y1-y2)^2).
Потом мы в цикле сравниваем по 2 точки и ищем максимальное расстояние.
Натянули ведь это ТЯ и там как я поняла два нуля
var N,i:integer;
BEGIN
readln(N);
i:=1;
while i<=N do begin
writeln(i,': ',sqr(i),' ',power(i,3));
i:=i+1;
end;
end.