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

Предыдущий
вопрос Следующий
вопрос

program SquarePerimeter;
var
side, perimeter: Integer;
begin
// Ввод стороны квадрата
write('Введите длину стороны квадрата: ');
readln(side);
// Вычисление периметра квадрата
perimeter := 4 * side;
// Вывод результата
writeln('Периметр квадрата равен ', perimeter);
end.

Пример работы программы:

Введите длину стороны квадрата: 5
Периметр квадрата равен 20