Дан текстовый файл, который называется chisla. txt. Считать из файла значения переменных m, n, s и найти произведение этих переменных, если m четное, иначе найти сумму этих переменных. Результат вывести в файл resultat. txt.

var m, n, t, res:integer; var txt:text; begin assign (txt,'chisla. txt') ; reset (txt) ; read (txt, m, n, t) ; close (txt) ; assign (txt,'resultat. txt') ; rewrite (txt) ; res : = (m mod 2 = 0? m*n*t : m+n+t) ; write (txt, res) ; close (txt) ; end.