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

program zz1;

var a, h, r:real; / / задаем переменные не целого типа

begin

write (' введите известную сторону прямоугольника '); / /вводим с клавиатуры число

read (a);

write (' введите периметр прямоугольника '); / /вводим с клавиатуры число

read (h);

r: = (h / 2) - a; / / вычисляем вторую сторону прямоугольника по формуле периметра

write ('вторая сторона прямоугольника = ', r:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.