var
a, b, sum, index: word;
begin
sum := 0;
read(a,b);
for index := 1 to b do sum += a;
write(sum);
end.
Должно быть так:
If a > 0 then a:=3 else a:=4; - лишняя запятая
If 10 = z then z:=z+1 else z:= 1; - лишнее двоеточие
В последнем операторе возможны различные варианты, но
выбрать один нельзя, не зная исходной формулы.
Вот варианты:
If k > 0 then writeln ('да') else if k<0 then writeln ('нет');
If k > 0 then writeln ('да') else writeln ('нет')
223 в восьмеричной =337 в десятичной
В задании перечислено 7 цветов, значит для кодирования 1 пикселя потребуется log(2)7 ≈ 3 бита