Найдите наименьшее для трех заданных чисел x y z.

Program asd;
USES crt;
var a,b,c,min:real;
BEGIN
clrscr;
Writeln('Vvedite x: ');
Readln(a);
Writeln('Vvedite y: ');
Readln(b);
Writeln('Vvedite z: ');
Readln(c);
min := a;
if b < min then min := b;
if c < min then min := c;
Writeln('Minimalnoe chislo: ',min);
Readln;
END.