Найти сторону прямоугольника зная его периметр и одну сторону, записать задачу с решением на языки программирования Паскаль

Var p,a,b:real;
begin
writeln(ведите периметр);
readln(p);
writeln(введите 1 сторону);
readln(a);
b:=p/2*a;
writeln(2 сторона равна =, b);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.