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

Vara,m:real;BeginWrite('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.