uses crt; var i,d:longint; begin clrscr; for i:=200 to 1000 do if i mod 9=2 then begin write(i,' '); inc(d); end; writeln; writeln; write(d,' so'); readln; end.
program in_dem; uses crt; var i,d:integer; begin clrscr; d:=0; for i:=200 to 1000 do if i mod 9=2 then begin write(i,' '); d:=d+1; end; writeln; write('=> Co ',d,' so'); readln; end.
