Дано натуральное число n. если оно делится на 4, вывести на экран ответ n=4k(где k - соответствующее частное) , если остаток от деления на 4 равен 1: n=4k+1, 2: n=4k+2, 3: n=4k+3. например 12=4*3, 22=4*5+2 на языке с++

Var infile, outfile: text; // вводной и выводной файлы var a,b,c, d, result  : integer; assign(infile, "c: \kvur.txt"); assign(outfile, "c: \korni.txt") reset(infile) read(infile,a) read(infile,b) read(infile, c) d = sqr(b) + 4*a*c if d = 0 then write("уравнение не имеет корней") else   append(outfile)   result: =(-b + sqrt(d)) / 2 * a   write(outfile,result)   write("корень уравнения")   writeln(result)   if (d> 0) then     result: =(-b - sqrt(d)) / 2 * a     write(outfile, result)     write("второй корень уравнения")     write(result)   end; end.

Program aaa; var     n,i,a,max,min: integer; begin     readln(n);     for i: =1 to n do begin       read(a);       if(i=1) then begin           max: =a;           min: =a;       end;       if(a> max) then max: =a;       if(a< min) then min: =a;     end;     writeln(min-max); end.