program raf105;
var
i,n: integer;
begin
write('Введите число: ');
readln(n);
write('Чётные: ');
for i:=1 to n do
if i mod 2 = 0
then write(i,' ');
writeln;
write('Нечётные: ');
for i:=1 to n do
if i mod 2 <> 0
then write(i,' ');
end.
<h3><u>PascalABC 3.4.2</u></h3>
Тут же все просто.
Если Д меньше или равно 4, то с=5.
Иначе с=10.
В первом случае с=5, значит Д меньше или равно 4.
А во втором случае с=10, значит Д больше 4
Ромб белый
квадрат зелёный
треугольник красный
круг синий