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

Question

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

Comments

что дано?

---

ничего не дано

Answer 1

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