Пожалуйста, помогите написать программу в паскале.
Даны стороны одного произвольного треугольника и стороны другого произвольного треугольника. Определить, равны ли их периметры.

Ответ:

var a,b,c,d,e,f: integer;

begin

write('Введите три стороны первого треугольника: ');

readln(a,b,c);

write('Введите три стороны второго треугольника: ');

readln(d,e,f);

if (a+b+c=d+e+f) then  

writeln('Периметры равны')

else  

writeln('Периметры не равны')

end.