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

program Parallelogram;
uses crt;

var
a, b, h, perimeter, area: real;

begin
clrscr;
writeln('Введите длину стороны a:');
readln(a);
writeln('Введите длину стороны b:');
readln(b);
writeln('Введите высоту h, опущенную на сторону a:');
readln(h);

perimeter := 2 * (a + b);
area := a * h;

writeln('Периметр параллелограмма: ', perimeter:0:2);
writeln('Площадь параллелограмма: ', area:0:2);

readln;
end.

Паскаль фигня