Пример кода для вычисления площади параллелограмма в Pascal:

program CalculateArea;
var
base, height, area: real;
begin
writeln('Enter the base of the parallelogram: ');
readln(base);
writeln('Enter the height of the parallelogram: ');
readln(height);
area := base * height;
writeln('The area of the parallelogram is: ', area);
end.

Пользователю предлагается ввести значения для базы и высоты параллелограмма, затем программа вычисляет площадь параллелограмма и выводит результат на экран.