Составте программу которая проверяет раны ли 3 введенных числа

Program abc; var a, b, c: real; Beginwriteln ('Введите 1 число'); readln (a); writeln ('Введите 2 число'); readln (b); writeln ('Введите 3 число'); readln (c); if (a=b) and (b=c) then writeln ('Числамежду собой равны') else ('Числа между собой не равны'); end.