4. определите результат работы программ: 1) var а, b: integer; begin a : = 26 mod 11; b : = 3; b : = 6 + a * b; a : = b / 3 * a; writeln(а); end. 2) var s, k: integer; begin s : = 0; for k : = 12 to 15 do s : = s + 13; writeln(s); end.

1) Ошибка "Нельзя преобразовать тип real к integer"
При исправлении
var
    a, b: real;

begin
    a := 26 mod 11;
    b := 3;
    b := 6 + a * b;
    a := b / 3 * a;
    writeln(a);
end.

выдает 24

2) 52