даны 4 числа если остаток от деления первого числа на второе больше или равно остатку деления третье и на четвертое то увеличить числа на 2 3 4 5 соответственно игаче гайти удвоенную сумму и произведение этих чисел

var mas: array[1..4] of integer; h,sum,proz:integer;beginh:=1;sum:=0;proz:=1;for var i := 1 to 4 do read(mas[i]);if ( mas[1] mod mas[2] ) >= ( mas[3] mod mas[4] ) then for var j := 2 to 5 dobeginmas[h] := mas[h] + j;h:= h+1;endelse beginfor var i := 1 to 4 dobegin proz:=mas[i] * proz;sum:= sum+ mas[i];end;sum:= sum / 2;end;end.