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