6) Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;
begin
s := 0;
for n:=4 to 13 do begin
s := s + 15;
end;
write(s)
end.

5) Определите значение переменных a и b после выполнения следующего фрагмента программы:

a := 2468;
b := (a mod 1000)*10;
a := a div 1000 + b;
Выведите значения а и b через пробел.\

4) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while s < 100 do begin
s:=s+k;
k:=k+4;
end;
write(k);
end.