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