составьте программу вычисления суммы всех положительных двухзначных чисел, кратных 8

var s,i:integer;begins:=0;for i:=10 to 99 dobeginif (i mod 8 = 0) thens:=s+i;end;writeln (s);end.