Составьте програму, которая вводит с клавиатуры длину и ширину прямаугольника и определяет, является ли прямаугольник квадратом. Постройте данный прямоугольник (единицу длины показать 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.