выполнить задание. Это ОДНО задание - 2-ое нужно выполнить всё по пунктам человека НЕ ниже ранга Учёного. Всё нужно выполнить в тетради, прикрепить скриншоты. Решение должно быть ПРАВИЛЬНЫМ. Могу ждать до завтра. Заранее большое

//PascalABC.Net
var
  r,x,y:real;
  c:string;
begin
  Write('Введите R: '); Read(r);
  Write('Введите координаты x и y: '); Read(x,y);
  if sqr(x)+sqr(y)=sqr(r) then c:='Точка лежит на окружности'
  else c:='Точка не лежит на окружности';
  Writeln(c)
end.

Тестовые решения:
Введите R: 2
Введите координаты x и y: 0 2
Точка лежит на окружности

Введите R: 2
Введите координаты x и y: -1.5 0.7
Точка не лежит на окружности

Введите R: 2
Введите координаты x и y: 1 1
Точка не лежит на окружности

Введите R: 2
Введите координаты x и y: 3 0
Точка не лежит на окружности

Блок-схема во вложении

Лиственные :
жимолость
дикий каштан
айлант высочайший
акация
тамарикс
дуб каменный
араукария
дуб
кассия
граб обыкновенный
лавр, лавровое дерево;
- ель
- эвкалипт
- вереск
- ива
- кедр
- земляничное дерево
- церцис
- кипарис
- боярышник
- тополь
- бирючина обыкновенная
- магнолия
- мастиковое дерево
- мелия
- мимоза
- бамбук
- мирт, миртовое дерево
- бук, буковое дерево
- сосна
- дуб кермесовый
- платан
- олеандр
- береза
- клён
- фикус
- липа
- вяз
- рожковое дерево