Создайте программу по решению задачи Определить ,являются ли прямоугольники квадратами

Var a,b:real; Begin Write('Длина = ');ReadLn(a); Write('Ширина = ');ReadLn(b); if a=b then Write('Является квадратом') else WriteLn('Не является квадратом') End.