Умоляю ,Пожалуйста !!!!!


Напишите функцию int min (int a, int b, int c, int d) (C/C++), static int min (int a, int b, int c, int d) (Java) function min (a,b,c,d: integer):integer (Pascal), находящую наименьшее из четырех данных чисел.

Входные данные
Вводится четыре числа.

Выходные данные
Необходимо вывести наименьшее из 4-х данных чисел.

ССПАСИБОООО

C++#include <iostream> #include <cmath> #include <stdio.h> using namespace std; int main() { int a,b,c,d,r,r2,r3; cin >> a >> b >> c >> d; r=min(a,b); r2=min(r,c); r3=min(r2,d); cout << r3; return 0; } Pascalprogram Project1;var a,b,c,d:integer;beginreadln (a,b,c,d);if ((a<=b) and (a<=c) and (a<=d)) then beginwriteln (a);endelse if ((b<=a) and (b<=c) and (b<=d)) then beginwriteln (b);endelse if ((c<=b) and (c<=a) and (c<=d)) then beginwriteln (c);endelse beginwriteln (d);end;end.

function min (a,b,c,d: integer):integer;var m1,m2:integer;beginif a<b then m1:=a else m1:=b;if c<d then m2:=c else m2:=d;if m1<m2 then min:=m1 else min:=m2;end;var a,b,c,d:integer;beginwriteln('Введите 4 числа:');readln(a,b,c,d);writeln('min = ',min(a,b,c,d));end.Пример:Введите 4 числа:5 8 3 6min = 3