Помогите пожалуйста решить 2 задачи по информатике!
Пример подобной задачи есть на фотографии..
1) Определите,является ли треугольник равносторонним.
2)Найти в произвольном диапазоне сумму нечётных чисел.

Странно, вроде уже отвечал...// Задание №1var a,b,c:real;begin  writeln('Введите длины сторон треугольника');  readln(a, b, c);  if (a=b) and (b=c) and(a>0) then     writeln('Равносторонний')  else     writeln('Не равносторонний');end.//Задание №2var  a, b, i, s: integer;begin  writeln('Введите левую границу диапазона');  readln(a);  writeln('Введите правую границу диапазона');  readln(b);  s := 0;  for i := a to b do     if i mod 2 <> 0 then s := s + i;  writeln('Сумма Нечетных:', s);end.