Составьте програму, которая вводит с клавиатуры длину и ширину прямаугольника и…

uses crt,graphABC; var x,y,xc,yc: integer; begin xc: =windowwidth div 2; yc: =windowheight div 2; write ('Введите ширину '); read (x); write ('Введите длину '); read (y); if (x=y) then write ('Это квадрат'); hidecursor; setpencolor (clAqua); rectangle (xc-x*5,yc-y*5,xc+x*5,yc+y*5); floodfill (xc,yc,clAqua); readkey; end.