Составить программу для нахождения 1 наименьшего из 4 чисел, после чего умножить его на 2

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]