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

Question

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

Answer 1

Program Program;
var a, b, c, d: Integer;
begin
readln(a, b, c, d);
if abegin
writeln(a);
end;
if bbegin
writeln(b);
end;
if dbegin
writeln(d);
end
else
begin
writeln(c);
end;
end.