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

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