Сделайте практическую работу и пришлите файлом

program start; var x,y,z: integer; beginreadln(x,y,z); if (x mod 2 = 0) and (y mod 2 = 0) and (z mod 2 = 0) then writeln('кол-во: 3 | произведение: ' , z*y*x) else if (x mod 2 = 0) and (y mod 2 = 0) then writeln('кол-во: 2 | произведение: ' , y*x) else if (x mod 2 = 0) and (z mod 2 = 0) then writeln('кол-во: 2 | произведение: ' , z*x) else if (z mod 2 = 0) and (y mod 2 = 0) then writeln('кол-во: 2 | произведение: ' , y*z) else if (x mod 2 = 0) then writeln('кол-во: 1 | произведение: ' , x) else if (y mod 2 = 0) then writeln('кол-во: 1 | произведение: ' , y) else if (z mod 2 = 0) then writeln('кол-во: 1 | произведение: ' , z) else writeln('все числа нечетные! ');

end.

var prost: array [1..100] of integer;   i, max, n, j: integer;   is_prost: bool; begin  max : = 99;   prost[1] : = 2;   n : = 1;   for i : = 2 to max do begin      is_prost : = true;       for j : = 1 to n do begin          is_prost : = is_prost and not (i mod prost[j] = 0);       end;       if is_prost then begin          n : = n + 1;           prost[n] : = i;       end;   end;   for i : = 1 to n do      if prost[i] > 9 then write(prost[i], ' '); end.