Tin học Pascal 11

uses crt;
var a,b,i,j:integer;
begin
    write('Nhap a:');readln(a);
    write('Nhap b:');readln(b);
    writeln('for -to do');
    for i:=a to b do
    if (i mod 2=0) and (i mod 5 <>0) then j:=j+i;
    writeln(j);
    j := 0;
    writeln('while-do');
    i := a;
    while i<=b do
    begin
    if (i mod 2=0) and (i mod 5 <>0) then j:=j+i;
    inc(i);
    end;
    write(j);
    readln
end.

uses crt;
var x,y,i,j:integer;
begin
    write('Nhap x:');readln(x);
    write('Nhap y:');readln(y);
    for i:=x+1 to y-1 do
    if (i mod 2<>0) or (i mod 3=0) then inc(j);
    write(j);
    readln
end.

Var
 a,b,t,i:integer;
Begin
 readln(a);readln(b);
 t:=0;
 For i:=a to b do
   if (i mod 2=0) and (i mod 5<>0) then t:=t+i;
 write('tong cac so chan thuoc [',a,',',b,'] la:',t);
 readln
End.

Var
 a,b,t,i:integer;
Begin
 readln(a);readln(b);
 t:=0;i:=a;
 While i<=b do
  begin
   if if (i mod 2=0) and (i mod 5<>0) then t:=t+i;
   i:=i+1;
  end;
 write('tong cac so chan thuoc [',a,',',b,'] la:',t);
 readln
End.

Var
 x,y,i,d:integer;
Begin
 readln(x);readln(y);
 For i:=x to y do
  if (i mod 2<>0) and (i mod 3=0) then d:=d+1;
 write('cac so le chia het cho 3 tu',a,'den',b,'la:',d);
readln
End.