Зависит от железа но должна у меня тянет на ноуте
//PascalABC.Net 3.2
procedure swap (var a1, a2: integer);
begin
var promt:=a1;
a1:=a2;
a2:=promt;
end;
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger ('Размерность : '));
var i:=-1;
while (i+2)<length (a) do
begin
i+=2;
swap (a[i], a[i-1]);
end;
a.Print;
end.
Под компьютерной презентацией созданные на компьютере и предназначены для показа электронного документа, содержащие тексты, рисунки, таблицы, диаграммы.Для подготовки компьютерной презентации можно использовать текстовые и графические редакторы.
Во free pascal?
Если хоче порисовать то скачай Basic
128 кб. экран VGA (640X480? 256)