Даны три числа a, b, c. значение большего из них присвойте значение d на паскале

Var       a, b, c, d: integer;   begin       write ('введите три числа: ');       readln (a, b, c);         if a > = b then               d : = a       else               d : = b;         if c > d then               d : = c;         writeln ('максимальное из них: ', d);   readln end.

var n,i: integer; // объевляем переменные типа integer

function fact(n: integer): integer; // создаем функцию для нахождения факториала - которая принимает число (integer) и возвращает integer

begin // начало функции

if n = 1 then // проверка на то что число равно 1

fact:= 1 // если n=1, то факториал 1

else // если n не 1

fact:=fact(n-1)*n; // то ищем факториал

end; // конец функции

begin  // старт программы

for i:= 1 to 9 do  // цикл от 1 до 9

if i mod 2 = 1 then  // проверка числа на остаток

writeln(fact(i));  // пишем факториал

end. // конец программы

//dev-c++ (c) #include < stdio.h> int main(void)   {const int n=10;   int ar[n],i,j,k,c;   i=0;   while(i< n)   {scanf("%d",& ar[i]);   i++; }   printf(" \nfirst array \n");   i=0;   while(i< n)   {printf("%d ",ar[i]);   i++; }   i=0;   k=0;   while(i< n)   {if(ar[i]%5==0)     {c=ar[i];     ar[i]=ar[k];     ar[k]=c;     k++; }   i++; }   printf(" \n1 fin array \n");   i=0;   while(i< n)   {printf("%d ",ar[i]);   i++; }   i=0;   while(i< (n-1))   {j=i+1;   while(j< n){     if(ar[i]> ar[j])     {c=ar[i];     ar[i]=ar[j];     ar[j]=c; }     j++; }   i++; }   printf("\n2 fin array \n");   i=0;   while(i< n)   {printf("%d ",ar[i]);   i++; }   return 0; } пример ввода: 1 5 2 10 3 15 4 20 5 25 пример вывода: first array 1 5 2 10 3 15 4 20 5 25 1 fin array 5 10 15 20 5 25 4 1 3 2 2 fin array 1 2 3 4 5 5 10 15 20 25