Составьте программу в паскале,в которой нужно найти наименьшее из четырёх чисел

program Program;var a, b, c, d: Integer;beginreadln(a, b, c, d);if a<b and a<c and a<d thenbeginwriteln(a);end;if b<a and b<c and c<d thenbeginwriteln(b);end;if d<a and d<b and d<c thenbeginwriteln(d);endelsebeginwriteln(c);end;end.