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

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