Результат выполнения программы Pascal ABC NET:
var i, a: integer;
begin
a:=2;
for i:=4 to 5 do a:=a+i;
writeln (a);
end.