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;"