помогите решить задачу в паскале.

Question

как найти площадь квадратной рамки, если внутренняя сторона равна f, а внешняя заданному числу r.

carnolio · Accepted Answer

Program pl; 
Var f, r: real; 
Begin 
Writeln (' вычисления площади квадратной рамки '); 
Write ('Введите внешнюю сторону рамки '); 
Readln(f); 
Write ('Введите внутреннюю сторону рамки '); 
Readln(r); 
f: =sqr(f)-sqr(r); 
Writeln ('s= ', f); 
readln; 
end;

missannet98 · Answer

Решение 
Program pl; 
Var s, r: real; 
Begin 
Writeln (' вычисления площади квадратной рамки '); 
Write ('Введите внешнюю сторону рамки '); 
Readln(r); 
s: =sqr(r)-25; 
Writeln ('s= ', s); 
readln;

Помогите решить задачу в паскале.