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

program zz1;

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

begin

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

read (a);

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

read (b);

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

read (c);

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

read (d);

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

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

end.