Составьте алгоритм нахождения наименьшего из трех значений в паскаль

program p1; vara1, a2, a3, max: integer; BEGINwriteln ('Vvedite 3 chisla cherez probel i nazhmite probel'); readln (a1, a2, a3); if a1>=a2 thenmax: =a1elsemax: =a2; if a3>max thenmax: =a3; Writeln ('Maximalnoe chislo iz nih: ', max); readlnEND.