Компьютер является системой, т. к. он состоит из устройств связанных между собой. Без перемены окончаний тут <u>никак не получится.</u>
var a: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(98)+2;
write('заполненный массив: ');
for i:=1 to 10 do write(a[i],' ');
end.
Паскалевский вариант от меня.
Program Programma;
Uses crt;
var n, p: integer;
BEGIN clrscr;
write('n = ');
readln(n);
writeln;
if (n > 0) and (n <=100) then
begin
p:=sqr(n);
write('Ответ: p = ', p);
end
else
write('Число ненатуральное или превосходит 1000');
readln;
END.
Var a,b,s,i:integer;
begin
s:=1;
read(a,b);
for i:=a to b do
s:=s*i;
writeln(s);
end.