Даны три числа.Найти наименьшее из них — Pascal(Паскаль)

uses crt;
var
 x,y,z:integer;
begin
 clrscr;
 writeln('Vvedite cisla');
 readln(x,y,z);
 if (x<y)and(x<z) then writeln ('Naimenshee chislo x');
 if (x>y)and(y<z) then writeln ('Naimenshee chislo y');
 if (x>z)and(y>z) then writeln ('Naimenshee chislo z');
 readln;
end.