//PascalABC.NET
//Версия 3.3, сборка 1627
begin
write(max(ReadInteger,ReadInteger));
end.
A = 5
b = 10
from math import gcd
for i in range(1, a*b+1):
if gcd(a, i) != 1 or gcd(b, i) != 1:
print(i, end=' ')
Var a,b,c,max,min:integer;
begin
read(a,b,c);
max:=c;
min:=c;
if min>a then min:=a else if min>b then min:=b;
if max<a then max:=a else if max<b then max:=b;
write(min,max);
end.
Особенность заключается в разложении светового потока на цветовые составляющие.
В компьютере используется система формирования цвета RGB (RedGreenBlue).