Судя по таблице, ось R - это первый разряд, ось G - это второй разряд и ось B - соответственно третий.
2 - 101, пурпурный
3 - 000, черный
5 - 011, голубой
8 - 110, желтый
Program variant;
var
x,a,d:real;
i:integer;
begin
Write('введите x='); Read(x);
for i:=1 to 7 do begin
a:=0.14+0.22*(i-1);
d:=(0.15*x-a)/ln(a*a-x*x);
Writeln(a:4:2,d:16:9);
a:=a+0.22
end
end.
<u>Пример</u>
введите x=0.027
0.14 0.034243220
0.36 0.173723688
0.58 0.527608521
0.80 1.778950153
1.02 -26.114068556
1.24 -2.875984233
1.46 -1.924508518
var s: string;
a: integer;
begin
readln(a);
if a mod 2=0 then s:='четное' else s:='нечетное';
if a in [1..9] then s:=s+' однозначное число';
if a in [10..99] then s:=s+' двузначное число';
if a in [100..999] then s:=s+' трехзначное число';
write(s);
end.