На языке Паскаль:
Program Perimeter;
var a,b,c,P:integer;
begin
writeln ('Введите три стороны треугольника');
readln (a,b,c);
P:=a+b+c;
writeln (P);
end.
На алгоритмическом языке:
Алг Периметр
Цел a,b,c,P
Начало
Вывод 'Введите три стороны треугольника'
Ввод a,b,c
P:=a+b+c
Вывод P
Конец