даны длины сторон прямоугольника составить программу найти периметр и длину диагонали.
Pascal.
Ребята помогите пожеее.Заранее спасибо!!!

спасибо,надеюсь что правильно

program sasaylalka;var a,b:integer; P,d:real;beginwriteln('Введи стороны');readln(a,b);P:=2*(a+b);writeln('Периметр равен ',P);d:=sqrt(sqr(a)+sqr(b));writeln('Диагональ равна ',d);readln;end.