Написать функцию, которая принимает 3 числа, наибольшее из них делит наименьшее и возвращает это значение. для решения понадобится оператор деления с остатком

Type   st = record       iquo: integer; {целая часть}       irem: integer; {числитель дроби}       idiv: integer; {знаменатель дроби}   end; function imax(i, j: integer): integer; begin   if i > j then imax : = i else imax : = j end; function imin(i, j: integer): integer; begin   if i < j then imin : = i else imin : = j end; function fr(i, j, k: integer): st; var   nmax, nmin: integer; begin   nmax : = imax(imax(i, j), k);   nmin : = imin(imin(i, j), k);   with result do   begin       iquo : = nmax div nmin;       idiv : = nmin;       irem : = nmax mod nmin   end end; var   a, b, c: integer;   r: st; begin   write('введите через пробел три целых числа: ');   readln(a, b, c);   r : = fr(a, b, c);   writeln('результат работы функции: ', r.iquo, ' целых и ', r.irem, '/', r.idiv) end. тестовое решение: введите через пробел три целых числа: 343 253 37 результат работы функции: 9 целых и 10/37

//pascal abc.net v3.0 сборка 1111 //в случае, если x принадлежит 0 и 2, а y-0 и 1. var   x,y,z: real;   i: integer; begin x: =0; y: =0;   for i: =1 to 11 do   begin;     z: =cos(2*x-3*y);     writeln(z,'=cos(',2*x,'-',3*y,'), при x=',x,' и y=',y);     x: =x+0.2;     y: =y+0.1;   end; end.// в случае,  если x не принадлежит 0 и 2, а y-0 и 1. var  x,y,z: real;   i: integer; beginx: =0.2; y: =0.1;   for i: =1 to 9 do  begin;     z: =cos(2*x-3*y);     writeln(z,'=cos(',2*x,'-',3*y,'), при x=',x,' и y=',y);     x: =x+0.2;     y: =y+0.1;   end; end.

Var  a,b,c : integer; begin writeln ('введите первое число'); readln (a); if a mod 2=0 then writeln ('это число является чётным') else writeln ('это число является нечётным'); writeln ('введите второе число'); readln (b); if b mod 2=0 then writeln ('это число является чётным') else writeln ('это число является нечётным'); writeln ('введите   третье число'); readln (c); if c mod 2=0 then writeln ('это число является чётным') else writeln ('это число является нечётным'); end.