A: integer;
begin
read(a);
if (a > 99) and (a < 1000) and (not odd(a)) then
write('true')
else
write('false');
end.
Ты должна сама настроить цветовую гамму.При желании сохрани в палитре.
Var s : string;
i : integer;
begin
readln(s);
for i := 1 to length(s) do writeln(s[i]);
end.
Sin(sqrt(x))*1/(cos(12*y-4))