uses crt ;
function min ( a , b :real ) :real;
begin
if a<b then min := a
else min := b ;
end;
var x , y , z , t :real;
begin
clrscr ;
writeln ( 'Введите 4 числа:' ) ;
readln ( x , y , z , t ) ;
write ( 'Минимальное=' , min( min( x , y ) , min( z , t )) : 0 : 2 ) ;
Приведу пример на Haskell
main :: IO ()main = do a <- read $ getLine :: IO Int b <- read $ getLine :: IO Int c <- read $ getLine :: IO Int d <- read $ getLine :: IO Int print $ 2 * minimum [a, b, c, d]
