Введите с клавиатуры положительные переменные 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.