известны диагонали ромба D1 и D2. Найдите периметр P и площадь S .Составьте и арифметические выражения, используя таблицу .Запишите линейный алгоритм для задачи.
Помогите пожалуйста !!!!!!!!!!

Program Number2;Var  d1,d2 : double; Begin  read(d1, d2);  write('Периметр: ');writeln(4*sqrt(sqr(d1/2)+sqr(d2/2)));write('Площадь: ');writeln( (d1*d2)/2);End.