Программа определяет кратно число 10 или нет. Если кратно печатает True, если нет печатает False.
Вывод можно дополнить так:
write('Число ',x,' — ',a);
Const n=10;
var x : array[1..n] of integer;
i : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(31)-30;
write(x[i],' ');
end;
writeln;
for i:=1 to n do
if x[i] mod 2 <>0 then x[i]:=x[i]*x[i];
writeln('Измененный массив:');
for i:=1 to n do write(x[i],' ');
writeln;
<span>end.</span>
Var
a,b,c:integer;
begin
readln(a);
readln(b);
c = (a*a+b)*a;
writeln(c);
end.
<span>Америка в 1877 году Шарлем Кро </span><span>и Томасом Эдисоном - граммафон</span>
1923 год. Джонг Мажер – Изобретение Электрофона и Калейдофона в Берлине
Магнитофон <span>в Берлине в 1935</span>