За заданными сторонами прямоугольника a и b вычислите его периметр и площадь .в паскаль.

Program psck;
vara,b: integer;p,s: real;
begin
    read(a,b); //стороны треугольника        s:=a*b/2;    p:=a+b+sqrt(a*a+b*b);        writeln('Периметр - ',p);    write('Площадь - ',s);    end.