Спрограммы паскаль вычислить площадь параллелограмма. зарание !

Var a, h: integer;
begin
    write('Введите a, h: '); readln(a, h);
    writeln('Площадь параллелограмма = ', a * h);
end.