Двоичная - 0001 1111
восьмеричная - 37
Var
a,b,p,s:real;
begin
Writeln('Введите значение а = ');
read(a);
writeln('Введите значение b = ');
read(b);
s:=a*b;
p:=2*(a+b);
writeln('Площадь = ',s);
Writeln('Периметр = ', p);
<span>end.</span>
Первый вариант - функциональный, второй - процедурный.
Рекомендую функциональный, потому что процедурный вариант жуткий щиткод и кринж, да и питон сам по себе язык функциональный. Удачи.