Var a:longint;
begin
read(a);
if a>0 then
a:=a+1;
<span>end.
</span>
Количество пикселей: 1024 * 768 = 786432
Глубина цвета: 24 бит (16777216 = 2²⁴)
Следовательно объем видеопамяти: 24 * 786432 = 18874368 бит, или 2,25 мегабайта.
//FPC 2.6.4
Program sieve_of_Eratosthenes;
var
n, i, x:integer;
a: array[1..32000] of boolean;
begin
readln(n);
for i:=2 to (n+1) div 2 do
begin
x:=i*2;
while x<=n do
begin
a[x]:=true;
x:=x+i;
end;
x:=0;
end;
for i:=1 to n do if not a[i] then write(i,' ');
readln;
end.
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
Позволяет рисовать , заливать , искожать , стирать .