+графическая или изобразительная
+звуковая
<span>+числовая </span>
<span>+видеоинформация </span>
Program Perimetr;
var P, a,b,c:integer;
Begin
writeln('Введите длины сторон треугольника ');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
P:= a+b+c;
writeln('Периметр треугольника = ', P);
end.
Во вложении файл Excel 2003. Не забудьте разрешить в "Безопасности" выполнение макросов!