Как гласит логика тип поля определяется типом данных
1) находим расстояния от начала координат до точек ( длины отрезков )
S = x^2+ y ^2 , где x и y - координаты двух точек
2) сравниваем их
<span>Хранение информации.-На бумаге, в уме.
</span><span>Передача информации.- По телефону, письмом в конверте
</span><span>Поиск информации.-Спрашивать у друзей,знакомы или просто спросить дорогу у прохожего, также в автобусах и метро есть карты.
</span>
var A,B,C,S1,S2,k,i:integer;
begin
write('A, B, C:');
readln(A,B,C);
S1:=0;
while A>S1 do
begin
k:=k+1;
S1:=S1+C;
end;
S2:=0;
while B>S2 do
begin
i:=i+1;
S2:=S2+C;
end;
k:=k*i;
writeln('k = ',k);
end.