С клавиатуры вводятся любые 50 чисел найти сумму чисел, которые делятся на 5.

Program pr; uses crt; Var s: real; a,i: integer; Begins: =0; Writeln ('Введите 50 чисел'); for i: =1 to 50 do Begin readln (a); if (a mod 5=0) then s: =s+a; end; Writeln ('s=',s); readln; end.