Помогите пожалуйста!
Нужно решить в виде блок-схемы(как на фото). Для каждого задания отдельно

1. Найти объём параллелепипеда.

2. Заданы стороны треугольника, проверить является ли он прямоугольным.

3. Поиск чисел кратных 2, но не кратных 5, в промежутке от 100 до N.

А на Паскале сможете?

var a,b,c,v: real;beginwrite('Введите рёбра параллелепипеда: ');readln(a,b,c);V:=a*b*c;writeln(V)end.

var a,b,c: real;beginwrite('Введите стороны треугольника: ');readln(a,b,c);if (sqr(a) + sqr(b) = sqr(c)) or (sqr(b) + sqr(c) = sqr(a)) or (sqr(a) + sqr(c) = sqr(b)) then writeln ('Треугольник является прямоугольным')else writeln('Треугольник не является прямоугольным')end.

var n,i: integer;beginwrite('Введите число (N>=100): ');readln(n);for i:=100 to n doif (i mod 2 = 0) and (i mod 5 <> 0) then writeln(i)end.

Спасибо

Смотри картинки1) Вводим рёбра параллелепипеда