Соствить программу Pascal ABC Задание: Найти сумму чисел от 50 до 100, кратныхтрем.

Var a: array[1… 10]of integer; i,b: byte; beginfor i: =1 to 10 doa[i]: =50+random (100); b: =0; for i: =1 to 10 do beginif (a[i]mod 3=0) thena[i]: =a[i]+b; b: =a[i]; end; writeln (b); end.