Помоги пожалуйста!!! обязательно блок схему с модификацией

Напишите программу, которая ответит на вопрос:

Является ли треугольник со сторонами a, b, c равносторонним?
Является ли треугольник со сторонами a, b, c равнобедренным?
Существует ли треугольник со сторонами a, b, c?
Лежит ли точка с координатами a и b в первой координатной четверти?
Являются ли заданные числа b и c квадратом и кубом числа a?
ТРЕБОВАНИЯ:

Программа вводит три вещественных числа и выводит пять строк с ответами на каждый из вопросов 1-5.
ИМЯ ФАЙЛА С ПРОГРАММОЙ = ВАШЕЙ ФАМИЛИИ

запрос найдено страниц ( в тысячах)
зубр & тур 5000

зубр 18000

тур 12000

Какое количество страниц ( в тысячах) будет найдено по запросу зубр / тур?
Решите задачу используя круги Эйлера.

Дана квадратная матрица порядка S. Обнулить из неё каждый третий столбец.В полученном массиве найти сумму чётных элементов.

example14;

Var i:

integer; function prost(i: integer): boolean;

var j:integer;

begin prost := true; i:=abs(i); for j := 2 to (i div 2) do if (i mod j = 0) then prost := false; end;

begin for i := 10 to 99 do if prost(i) = true then write(i:5);

readln(i);

end.