Найти сумму целых положительных чисел от a до b кратных 4 (блок схема)

Из курса математики мы знаем что периметр треугольника равен сумме его трех сторон, в равностороннем треугольнике они равны , потому

, где а - сторона равностороннего треугольника.

а площадь расчитывается по формуле

Смотрим программы.

1 Программа подходит, формулы в функциях вроде правильно написаны.

2 Программа не подходит, по виду вроде для квадрата формулы

3 Программа не подходит. Формула площади вроде для треугольника( половина основания на высоту), но не для равностороннего  и в функции для периметра в аргументах 3 штуки - очевидно это стороны треугольника и предполагается что они разные.

Более красивый вариант) 

Program N_1;                         //Название программы
Var a,b,c:integer;                   //Переменные
BEGIN
Writeln('Введите длину и ширину прямоугольника');  //Вывести данную строку
readln(a,b);                         //Считать a и b
if a<b                                 //Если a<b
then begin                          //то найти периметр
c:=(a+b)*2;
Writeln('Пириметр= ',c)       //и вывести его
end
else begin                         //Если a>b
c:=a*b;                             //то найти площадь
writeln('Площадь= ',c)       //и вывести ее.
end;
END.