Ответы и объяснения

2013-03-11T17:07:44+04:00

var
s, i:integer;

begin
s := 0;
for i := 18 to 23 do
s := s + i;
write(s)
end.