begin
var a := ReadArrInteger(15);
for var i := 14 downto 0 do
Println(a[i]);
end.
1) Палитра
2) Алгоритм
3) Монитор
4) Графический файл
5) Курсор
6) Бит
7) Пиксель
8) И не то и не другое. ^^ Ну раз два варианта, то пожалуй "думащее устройство".
9) Разрешение изображения
Var
x:integer;
y:real;
begin
readln(x);
if x < 0 then
begin
y:= 1/x*x;
end
else
y:=x/6;
writeln(y);
end.
Ответ: В ..................................