Даны три неравных числа, вывести меньшее из них(программа).

Var
a,m:real;
Begin
Write('a = ');
ReadLn(m);
Write('b = ');
ReadLn(a);
if a<m then m:=a;
Write('c = ');
ReadLn(a);
if a<m then m:=a;
WriteLn('Меньшее из данных чисел: ',m);
End.