Составить программу для вычисления периметра ромба

Question

Составить программу для вычисления периметра ромба

Comments

через какую формулу?

---

любую

---

просто нужно составить программу

---

чтобы найти периметр ромба

---

срочно пожалуйста

Answer 1

Program;
Uses crt;
Var a:real;
Begin
Writeln('Введите сторону ромба');
Read(a);
P:=a*a;
Writeln('Периметр ромба равен');
End