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

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