Написать программку в паскале определяющую является ли четырехугольник квадратом

program zz1;

var a, b, c, d:integer; //задаем переменные целого типа

begin

write( введите 1-ое число );  // вводим с клавиатуры первое число

read(a);  

write( введите 2-ое число );  // вводим с клавиатуры 2-ое число

read(b);

write( введите третье число );  // вводим с клавиатуры третье число

read(c);

write( введите 4-ое число );  // вводим с клавиатуры 4-ое число

read(d);

if (a = b) and (c = d) and (a = d) then  writeln( четырехугольник является квадратом )  // выводим ответ

else writeln( четырёхугольник не является квадратом );

end.