Решите в форме паскаль

Question

Решите в форме паскаль

---

Answer 1

Линейный алгоритм:
//Pascal
var x,y:real;
begin
  readln(x,y);
  writeln('Площадь рамки : ', sqr(x)-sqr(y));
end.