выдает такую ошибку, что мне надо исправить я не понимаю Fatal: Syntax error, ")" expected but "identifier D" found Program P2; var a,b:integer; d,s,p:real;
Begin
write('введите сторону прямоугольника a=');
readln(a);
write('введите сторону прямоугольника b=');
readln(b);
d:=sqrt(sqr(a)+sqr(b));
writeln('диагональ прямоугольника ='d);
s:=a*b;
writeln('площадь прямоугольника ='s);
p:=2*(a+b);
writeln('периметр прямоугольника ='p);
end.