Помогите пожалуйста решить 2 задачи по информатике! Пример подобной задачи есть **...

Question

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

Answer 1

Странно, вроде уже отвечал...
// Задание №1
var a,b,c:real;
begin
  writeln('Введите длины сторон треугольника');
  readln(a, b, c);
  if (a=b) and (b=c) and(a>0) then
     writeln('Равносторонний')
  else
     writeln('Не равносторонний');
end.
//Задание №2
var
  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.