Написать программу в pascal которая считывает сумму всех кратных чисел от a до b

Var a,b,i,kratnoe,n,s:int64;
begin
read (a,b,kratnoe);
s:=0;
for i:=a to b do
if (i mod kratnoe=0) then s:=s+i;
write(s);
end.

Im dont no

Объяснение:

Im dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont noIm dont no

{Лови прогу для одномерного массива. Если он двумерный, могу модифицировать.
Должна работать, не работает - отпишись, отыщу паскаль и исправлю.
Кидай прям весь ответ, кэп. Комментарии подотри, опять же кэп}

program massiv;
var x:array[1..10] of real;
n, i:integer;
s:real;

begin
writeln('Vvedite razmer massiva');
readln(n);
if (n<1) or (n>10) then writeln('Neverno zadano znacheniye razmera massiva')
else begin {check: +}
for i:=1 to n do begin writeln('Vvedite element ', i, 'iz ', n); readln(x[i]); end; {enter the array}
s:=0;
for i:=1 to n do
begin
s:=s+power(x[i], 3);
end;
writeln(s:2:2);
end;
readln; {stop here to read the program answer}
end.