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