найти сумму от начала до первого кратного 5

Тут не совсем стандартное решение, но тоже работает правильно

Можете еще над одной задачей помочь в профиле?

program abc;var x,s:integer;beginx:=1;while (x mod 5)<>0 do  begin    writeln('Введите x');    readln(x);    s:=s+x;  end;writeln(s);  end.

var  a:array[1..10000] of integer;i, n, sum:integer;begin  Read(n);  For i:= 1  to n do    Read(a[i]);  For i:= 1 to n do    if (a[i] mod 5 = 0) then break      else inc(sum,a[i]);  Writeln(sum);end.