Паскаль. составьте блок схему и программы для нахождения суммы всех натуральных двузначных чисел кратных 10

Программа:
var x,i,sum:integer;beginx:=10;sum:=0;for i:=1 to 90 do //90 двухзначных чисел всего  begin    if x mod 10 = 0 then      begin        sum:=sum+x;      end;     x:=x+1;  end;  writeln(sum);end.