Составьте програму, которая вводит с клавиатуры длину и ширину прямаугольника и определяет, является ли прямаугольник квадратом. Постройте данный прямоугольник ( единицу длины показать 5 пикселями)

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.