Помогите написать программу по информатике, надо из 3 целых чисел найти наименьшее, 8 класс

program p1;var a,b,c,x:integer;beginwriteln('Введите первое число');readln(a);writeln('Введите второе число');readln(b);writeln('Введите третье число');readln(c);if a<b then x:=a else x:=b;if x>c then x:=c;writeln('Наименьшее = ',x);end.