1.
var i,s:integer;
begin
s:=0;
i:=1;
while i<=317 do
 begin
 s:=s+i;
 i:=i+2;
 end;
writeln('s = ',s);
end.

Результат:
s = 25281

2.
var i,j:integer;
begin
for i:=2 to 9 do
 begin
 for j:=1 to 9 do writeln(i,' * ',j,' = ',i*j);
 writeln;
 end;
end.

Результат (частично):
2 * 1 = 2
2 * 2 = 4
2 * 3 = 6
2 * 4 = 8
2 * 5 = 10
2 * 6 = 12
2 * 7 = 14
2 * 8 = 16
2 * 9 = 18

...

9 * 1 = 9
9 * 2 = 18
9 * 3 = 27
9 * 4 = 36
9 * 5 = 45
9 * 6 = 54
9 * 7 = 63
9 * 8 = 72
9 * 9 = 81