V=A(длина)*B(ширина)*b(битовая глубина)
V=800*600*24=1440000байт
1440000*4=5625Кбайт
Program pos;
var
c, n: integer;
begin
c := 0;
while (True) do
begin
readln(n);
if n = 0 then
break
else
if (n mod 2 = 1) and (n >= 1) and (n <= 9) then
c := c + 1;
end;
writeln('количество: ', c);
end.
Uses GraphABC;
begin
Pen.Color := clblue;
brush.Color :=clRed;
DrawRectangle(100,200,400,400);
fillRect(100,200,400,400);
moveto(90,200);
lineto(100,150);
lineto(400,150);
lineto(410,200);
lineto(90,200);
FloodFill(100,180,clblue);
brush.Color := clCyan;
fillRect(150,250,200,300);
fillRect(250,250,300,300);
<span>end.</span>
Меню Вставка, Функция, выбрать необходимую функцию в списке встроенных функций.
А вообще , в верхней строке есть значок " f ", там все функции есть