for var i := 1 to n do
begin
Write('a[', i , '] >>> ',a[i]);
end;
сами там додумайте
вот, можно так
Var x:integer;
begin
for x:=5 to 14 do begin
x:=x*(x+1)
end;
end.
PASCAL не уверен что работает но смысл такой
Будет в 23 в 16 системе счисление
У нас новое сельское хозяйство открыли!
Сегодня на уроке писали словарный диктант!
В журнале две картинки царь,град.
У французов полком водет Наполеон Бонапарт!