Txt и doc текстовый, zip архив, exe исполнительный
program
esep5;
var
n:integer;
begin
writeln(‘san
engiz’,’n');
readln(n);
if
(n mod 3=0) then writeln('yes')
else writeln('no');
<span>end.</span>
Pascal abc.
Проверка
введите кол-во элементов массива
10
12 13 27 29 19 18 11 20 22 16
<span>сумма=187</span>