Сделйте блок схему программы через for, пожалуйста!

Целое число n вводится с клавиатуры. в диапазоне [10;-10] найти сумму и колоичество чисел, кратных n.

Стой, я сейчас изменю немного

все

там я подправил в конце, а так все верно

var n,k,sum,i:integer;beginreadln (n);if (n<10)and(n>-10) thenfor i:=1 to 10 do beginif n mod i=0 thensum:=sum+i;k:=k+1;end;writeln(sum, ' ', k);end.