Впаскале составить программу вычисления периметра треугольника, и назвать допустимые имена переменных.

Var a,b,c:word;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (c+b>a) then write (a+c+b)
else write ('Треугольника не существует');
end.