Как написать программу для паскаля которая считает площадь квадрата?

Квадрат вписан в круг. Нужно написать програмку, которая считает площадь окружности, если ввести сторону квадрата У меня вышла формула: S окр=(a^2) /2)*(P (число пи) -2) — Площадь круга минус площадь квадрата вот код: Program Okruzhnost; Var x,y: real; S: real; Procedure RectS (a,b: real; Var S: real); Begin S: =(sqr (x) /2)*(pi-2); end; Begin WriteLn ('Введите сторону квадрата'); ReadLn (x,y); RectS (x,y,S); WriteLn ('Площадь окружноси равна',S); end.