Вопрос по информатике:

1.Сколько раз будет выполнен oператop write?
var i,j,s:intrger;
begin
S:=0;
for i:=15 to 18 do
begin s:s+1;
write(i:4,s:5);
end;
end.
2.чему будет равно s после выполнения программы.
var i,n,k,s,a:integer;
begin
S:=0;
fo4 i:4 to 8 do if i mod 4=0 then s:==s+i;
writeln(s);
End.
Нужны трессировочные таблицы