program findpt;
var
a, b, c: integer;
begin
Write('Ввод a: '); Readln(a);
Write('Ввод b: '); Readln(b);
Write('Ввод c: '); Readln(c);
Writeln('Периметр треугольника равен: ', a + b + c);
end.
Объяснение:
program findpt;
var
a, b, c: integer;
begin
Write('Ввод a: '); Readln(a);
Write('Ввод b: '); Readln(b);
Write('Ввод c: '); Readln(c);
Writeln('Периметр треугольника равен: ', a + b + c);
end.
Объяснение: