Составьте программу,которая нарисует квадрат со стороной a и окружность,вписанную в квадрат

uses graphabc; var a: integer; begin write('Введите сторону квадрата: '); read(a); clearwindow; rectangle(50,50,50+2*a,50+2*a); circle(50+a,50+a,a); end. Программа должна работать, но есть одно "но": она рисует квадрат со стороной 2а вместо а. Такие дела :) Надеюсь, что не критично.