Составить блок схему...

Составить блок схему и программу к следующей задачи.Дана квадратная пластина с прямоугольным отверстием .Известно сторона А=50, а стороны С=5 и В=10. Найтизаштрихованную площадь

 

Я так понимаю, что заштрихованной областью будет являться часть пластины без отверстия.
ПАСКАЛЬ
---
program abc;
var a,b,c,s1,s2,s:integer;
begin
a:=50; b:=10; c:=5;
s1:=a*a;
s2:=b*c;
s:=s1-s2;
writeln('площадь заштрихованной фигуры=',s);
end.
---