Составить программу для вычисления периметра треугольника

Var a, b, c, p: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
p:=a+b+c;
writeln('Периметр треугольника = ', p:8:3);
end.