1 задача
program z1;
var i:integer;
begin
for i:=2 to 98 do
if (i mod 2)=0 then
write(i:3);
End.
2 задача
program z2;
var i,v:integer;
begin
for i:=100 to 999 do
if (i mod 4)=0 then v:=v+i;
writeln(v);
End.
3 задача
program z3;
begin
writeln('3*1=3');
writeln('3*2=6');
writeln('3*3=9');
writeln('3*4=12');
writeln('3*5=15');
writeln('3*6=18');
writeln('3*7=21');
writeln('3*8=24');
writeln('3*9=27');
writeln('3*10=30');
End.
Блок-схемы то уж сделаешь :)