Составьте программу которая находит меньшее из трех введенных с клавиатуры чисел a,b,c и выводит его на экран

На языке Pascal: 
var a, b, c:integer;
begin
    readln(a, b, c);
    if (a<b) then begin
        if (a<c) then
            writeln(a);
        end
    else if (b<c) then
        writeln(b)
    else
        writeln(c);
end.