Напишите программу для получения периметра пятиугольника

По длинам сторон пятиугольника на Паскаль ABC:

Program P5;
var a1,a2,a3,a4,a5:real;
begin
 writeln('Введите длины сторон');
 readln(a1,a2,a3,a4,a5);
writeln('Периметр пятиугольника = ', a1+a2+a3+a4+a5);
end.