Напишите программу при помощи оператора random, A: array [1..10] of integer; для задачи: определить сумму цифр трехзначного числа кратных 4
На языке Паскаль!

begin

var(v,r):=ReadInteger2;

if V<=R-100 then Println('Пройдет')

else Println('Не пройдет')

end.