ПОМОГИТЕ С ИНФОРМАТИКОЙ!!!

var K,I:integer;begin  K:=0;for I:=1 TO 99 doIF I MOD 5=0 THEN Inc(K);Writeln(K);end.

 var S,I:integer;begin  S:=0;FOR I:=2 TO 50 doIF I MOD 2 =0 THEN S:=S+I;Writeln(S);end.
 var X:real;beginX:=-2;while Xlt;=2 DO BEGINWRITELN(2*X*X+X+2);X:=X+0.1;end;end.