До значения <=10 пройдет 4 цикла: 7, 8, 9, 10
Var
x, y, d : real;
begin
read (x, y);
d := sqr (x) + sqr (y);
read (x, y);
if d > sqr (x) + sqr (y) then write ('Вторая ближе') else write ('Первая ближе');
end.
Напиши в интернете г д з информатика босова 6 класс или какой там автор. И выбери номер и будут все ответы. Так работает со всеми предметами
1445г. изобрел германский ювелир Иоганн Гутенберг.