составьте программу,которая нарисует квадрат со стороной 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а вместо а. Такие дела :) Надеюсь, что не критично.