даны 4 числа,найти минимальное,язык паскаль

Question

даны 4 числа,найти минимальное,язык паскаль

Answer 1

Program gt;
var a,b,c,d,min:integer;
begin
read(a,b,c,d);
min:=a;
if(bif(cif(dwriteln(min);
end.
Если там вещественные числа то в var-е вместо integer напиши rel