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

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

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.