Найти периметр равностороннего треугольника (или произведение сторон равнобедренного) - PascalABC.NET

Формулировка задачи:

Даны стороны треугольника. Если треугольник равносторонний, то найти его периметр, если треугольник равнобедренный, то вычислить произведение его сторон.

Решение задачи: «Найти периметр равностороннего треугольника (или произведение сторон равнобедренного)»

Листинг программы

var a , b , c:real;//storing trugolnika
var s :real;
begin 
read(a , b , c);
readln();
if (a=b) and (b=c) then s:=a+b+c else if (a=b)or (b=c) or (a=c) then s:=a*b*c;
writeln(s);
end.

Объяснение кода листинга программы

Переменные a, b и c используются для хранения длины сторон треугольника.
Переменная s используется для хранения результата вычисления периметра или площади треугольника.
Сначала происходит чтение значений переменных a, b и c с помощью функции read().
Затем происходит проверка на равносторонний треугольник с помощью оператора if. Если все три стороны равны, то переменной s присваивается сумма трех сторон.
Если условие в операторе if не выполняется, то проверяется условие для равнобедренного треугольника с помощью оператора else if. Если хотя бы две стороны равны, то переменной s присваивается произведение трех сторон.
В конце происходит вывод значения переменной s с помощью функции writeln().