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

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