Найти сумму чисел кратных 3 для ряда 1..n - 1 найти произведение чисел, оканчивающихся на 5 - 2

Всё возможно не рационально решал но должно всё правельно быть(проверял) uses crt; var a: array[1..4,1..5] of integer; i,j,n,p: integer; begin for i: =1 to 4 do begin for j: =1 to 5 do begin a[i,j]: =random(9); write(a[i,j],' '); end; writeln; end; writeln; for i: =1 to 4 do begin n: =a[i,1]; a[i,1]: =a[i,5]; a[i,5]: =n; end; for i: =1 to 4 do begin for j: =1 to 5 do begin write(a[i,j],' '); end; writeln; end; for i: =1 to 5 do begin p: =p+a[1,i]; p: =p+a[4,i]; end; for i: =2 to 3 do begin p: =p+a[i,1]; p: =p+a[i,5]; end; writeln(p); end.

Гиперболы -(по неизмеримым волнам диких растений) (кони скрывавшиеся в них как в лесу)  (ничто в природе не могло быть лучше их)  (тучи диких гусей)  (каждая травка испускала амбру) эпитеты -зелёно-золотым океаном) (по небу, изголуба-тёмному) (исполинскою кистью) (широкие полосы из розового золота)  сравнения-(только кони, скрывавшиеся в них, как в лесу), (самый свежий, обольстительный, как морские волны, ветерок) (слышался из какого нибудь уединённого озера крик лебедя и, как серебро, отдавался в воздухе)  метафоры-(в синих волнах воздух) (мелькает одною чёрною точкою)  олицетворения-(степь уже давно приняла их  в свои зелёные объятия) (вся степь курилась благовонием) (на них прямо глядели ночные звёзды)