Pascal:периметр прямоугольника P дм. Одна из сторон длиной A см. Найти площадь прямоугольника

Var a,b,p,s:real;

begin;
    write(Введите сторону: );
    readln(a);
    write(Введите периметр: );
    readln(p);
    p:=p*10;
    b:=(p/2)-a;
    s:=a*b;
    write(Вторая сторона равна , b,, площадь равна , s)
end.

Если периметр в сантиметрах, убери строку "p:=p*10;"

Р дм = см см - А см = см