Склавиатуры вводится последовательность чисел до первого кратного 5. вычислить: а) сумму всех введенных чисел до первого кратного 5 б) сумму всех введенных чисел, включая первое кратное 5все это надо написать на языке паскаль ​

а)

var s,a: integer;

begin

s: =-1;

a=1;

while (a mod 5< > 0) do

begin

      s: =s+a;

      readln(a);  

end;

end.

б)

var s,a: integer;

begin

a=1;

while (a mod 5< > 0) do

begin

      readln(a);  

      s: =s+a;

end;

end.

Uses    crt; const  m = 100; var  a: array [1..m] of integer;           i, max, k, n: integer; begin  clrscr;       repeat        writeln('введите количество элементов массива');       readln(n);   until (n < > 0) and (n> 0);       for i : = 1 to n do  begin        writeln('введите [', i, '] элемент массива');         readln(a[i]);   end;     for i : = 1 to n do      write(' ', a[i]);         writeln;       max : = a[1];   for i : = 2 to n do        if a[i] > max then max : = a[i];   writeln(' max= ', max);       for i : = 1 to n do        if a[i] = max then k : = k + 1;       writeln(' k= ', k);       end.

Program project2; {$apptype console} uses  windows; var n,i,s: integer;     a: array of  integer; begin  randomize; s: =0;   setconsoleoutputcp(1251);   write('введите длину массива: ');   readln(n);   setlength(a,n);   for i: =0 to length(a) do    a[i]: =random(100)-50;   for i: =0 to length(a) do   write(a[i]: 3);     writeln;   for i: =0 to length(a) do    if a[i] mod 2 =0 then    s: =s+a[i];   writeln('сумма: ',s);   readln; end.