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

program perimetr;

var a: integer;

begin

writeln('Программа по нахождению периметра многоугольников');

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

readln(a);

writeln();

writeln('треугольник ', a*3);

writeln('квадрат', a*4);

writeln('пятиугольник', a*5);

writeln('шестиугольник', a*6);

writeln('семиугольник', a*7);

writeln('восьмиугольник', a*8);

end.

Объяснение:

program perimetr; // название программы

var a: integer; // объявление переменных

begin

writeln('Программа по нахождению периметра многоугольников'); //выводим задачу программы

write('Введите сторону многоугольника  '); // просим ввести сторону многоугольника

readln(a); // считываем это число в переменную а

writeln(); // используем как enter

writeln('треугольник ', a*3);

writeln('квадрат', a*4);                             { в этой части кода мы в каждом действии выводим название фигуры и ее периметр, так как стороны у фигур равны, просто умножаем введенную сторону на их количество}

writeln('пятиугольник', a*5);

writeln('шестиугольник', a*6);

writeln('семиугольник', a*7);

writeln('восьмиугольник', a*8);

end.