Создать приложение в Борланд Делфи 7 для вычисление периметра…

program xx; uses crt; var p,d,s,a,b: real; beginwriteln ('Введите длину и ширину: '); read (a,b); s: =a*b; writeln ('Ploshad pryamougolnika=',s: 9:2); p: =(a+b)*2; writeln ('Perimetr pryamougolnika=',s: 9:2); d: =sqrt (a*a+b*b); writeln ('diagonal pryamougolnika=',s: 9:2); //po teoreme Pifagora//не помню формулу для диагонали-напишешь ее-я тогда дополню задачу) end.