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

2013-12-08T22:25:52+04:00
Задача 1. 
var
  i,s: integer;
begin
  s:= 0;
  for i:=21 to 99 do
    if i mod 3=0 then begin
      write(i,' ');
      s:= s+i
    end;
  writeln(s)
end.