Скласти блок-схему для знаходження коренів квадратного рівняння (врахувати всі випадки: 2 корені, 1 корінь, розв'язків нема

//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
Точка не лежит на окружности

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

Интернет – одно из самых удивительных изобретений 20-го века. Он дает безграничные возможности в отношении различных коммуникаций, получения и хранения нужной информации, направлении мультимедиа. Отношение к нему различных слоев населения неоднозначно, содержит даже диаметрально противоположные позиции, но огромное значение его в жизни современного человека не будет оспариваться никем.

Эта слайдовая презентация является результатом ученического исследования на тему влияния интернета на жизнь человека и на все общество в целом. На ее слайдах рассматриваются вопросы:

- Что же такое интернет,

- Использование интернета в жизни людей,

- Как интернет влияет на людей,

- Интернет для ребенка,

- Можем ли мы прожить без интернета,

- Интернет в отдельном школьном классе,

- Личное отношение автора к интернету.