Помогите написать программу. Очень срочно надо.

Question

Помогите написать программу.
Очень срочно надо.

---

Answer 1

uses crt;
const g=9.8;
var l,t:real;
begin
clrscr;
 write('Введите длину маятника в метрах L=');
readln(l);
t:=2*pi*sqrt(l/g);
write('Период=',t:0:2,' сек.');
end.