Известны диагонали ромба 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.