Помогите пожалуйста, используя программу ABC Паскаль составить программу…

var x1, x2, x3: real; begin write ('x1='); readln (x1); write ('x2='); readln (x2); write ('x3='); readln (x3); if x1 < x2 then if x1 < x3 then writeln ('минимальным является элемент х 1=', x1) else writeln ('минимальным является элемент х 3=', x3) else if x2 < x3 then writeln ('минимальным является элемент х 2=', x2) else writeln ('минимальным является элемент х 3=', x3); end.