Напишите программу в паскаль abc, которая запрашивает значения x, y, z, а затем выводит значение следующих функций: max(x, min(y, z)) и min(min(x, y), z)

Var x,y,z,a: integer; begin read(x; y; z); if y< z then a: =y else a: =z; if x> a then write(x) else write (a); writeln; if y< x then a: =y else a: =x; if a< x then write (a) else write (x); end.

A) program hhh54; var x: longint; begin   read (x);   if ((x div 100) + (x mod 10)) mod 5 = 0 then write ('кратна')   else write ('не кратна'); end. б) program hhh54; var s,n,i: longint; begin   s: =0;   read (n);   for i: = 1 to n do     s: =s+sqr(i);   write (s); end. в) program hhh54; var k,n,i: longint; begin   k: =0;   for i: = 1 to 50 do     if i mod 3 = 0 then k: =k+1;   write (k); end.

{  s(x) = 1 + 3x^2/1! + 5x^4/2! + =   = (x)' + (x^3/1! )' + (x^5/2! )' + =   = (x + x^3/1! + x^5/2! + )' =   = (x * (1 + x^2/1! + x^4/2! + )' =   = (x ^ e^(x^2))' =   = e^(x^2) + x * 2x*e^(x^2) =   = (1 + 2x^2)*e^(x^2) =   = y(x) } const n = 10; function y(x: real): real; begin   y : = (1 + 2*sqr(x)) * exp(sqr(x)); end; var i: integer; x: real; begin   for i : = 1 to n do   begin   x : = i/n;   writeln(x: 3,' : ',y(x));   end; end.