Составить программу нахождения площади ромба в Паскале

var x,y:integer;beginwriteln('Введите высоту');read(x);writeln('Введите основание');read(y);writeln('Площадь ромба = ', y*x);end.