Известен рост трех человек. Определить, одинаков ли их рост — Pascal(Паскаль)

var
 r1,r2,r3:integer;
begin
 writeln('Введите рост: 170 165 140');
 readln(r1, r2, r3);
 if (r1 = r2) and (r2 = r3) then  write('Одинаковый рос') 
   else write('Различный');
end.