Program Perimetr;
var a, b, c, p :longint;
beginWriteln('Введите первую сторону треугольника a');
readLn(a);
Writeln('Введите вторую сторону треугольника b');
readLn(b);
writeln('Введите третью сторону треугольника c');
readLn(c);
p:=(a+b+c);
writeln('Периметр треугольника равен ', p);
end.