for ch:='a' to 'z' do write(ch);
writeln;
for num:=2 to 200' do if(not(odd(num)))then write(ch);
writeln;

楼上的不严谨嘛~

第一题：
var i:char;
begin
  for i:='a' to 'z' do write(i);
end.

第二题：
var i:integer;
begin
  for i:=2 to 200 do
  if not(odd(i)) then write(i,' ');
end.