Даны три действительных числа X,Y,Z. Найти квадрат минимального числа — Pascal(Паскаль)

uses crt;
var x,y,z:integer;
BEGIN
    write('введите x :');readln(x);
    write('введите y :');readln(y);
    write('введите z :');readln(z);
    
    if (x<y)and(x<z)then write('x =',sqr(x))
      else if y<z then write('y =',sqr(y))
        else write('z =',sqr(z));
END.