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

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

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку