Решите по информатике

A) 1-ая, полная программа для Pascal ABC:
var S,i: Integer;
begin
i:=0;
S:=0;
while ilt;3 do
begin
i:=i+1;
S:=S+i*i;
end;
writeln(S);
end.

Программка выдаст ответ: 14.

б) 2-ая, полная программка для Pascal ABC:
var i: Integer;
S: real;
begin
i:=1;
S:=0;
while igt;1 do
begin
S:=S+i/i;
i:=i-1;
end;
writeln(S);
end.

Программка выдаст ответ: 0