Введите с клавиатуры положительные переменные c и d. Если c>d, то нарисуйте окружность с центром в точке (c,c) и радиусом, равным d. Иначе нарисуйте отрезок с концами в точках (100,с) и (100,d).
Если нужна программа на паскале, то как-то так uses graphabc; var c,d:integer; begin read(c,d); if c>d then circle(c,c,d) else line(100,c,100,d) end.