Составить программу в Паскале.

Даны стороны треугольника а, в, с. Найти его периметр.

Program asd;

Var a, b, c, p : integer;

begin

Write ('Введите первую сторону треугольника a: '); readln (a);

Write ('Введите вторую сторону треугольника b: '); readln (b);

write ('Введите третью сторону треугольника c: '); readln (c);

p: = (a+b+c);

Writeln ('Периметр треугольника равен: ', p);

end.