Var A: array[0..100] of integer;
Const
n = 10;
var
a: array[1..n] of integer;
i: integer;
begin
for i := 1 to n do
a[i] := i * i * i;
writeln(a[1] + a[5] + a[n]);
end.
Var
s, x: integer;
begin
s:=0;
repeat
readln(x);
s:=s+x;
until x = 0;
writeln(s);
end.
Incert - [инсет]
End - [энд]
На информатике, думаю, допустимо читать так, как видишь)
Машинное слово- это колич-во данных, кот-е процессор может обработать за одну операцию.