решить задачу

D - Обыкновенные дроби
Максимальное время работы на одном тесте: 2 секунды
Максимальный объем используемой памяти: 64 мегабайта
Имя входного файла: input.txt
Имя выходного файла: output.txt

Вам даны две обыкновенные дроби: A/B и C/D, с которыми нужно произвести арифметическое действие и представить результат в виде несокращаемой дроби или целого числа.
Числители целые и не превосходят 10⁹ по модулю.
Знаменатели целые, положительные и не превосходят 10⁹.

Входные данные
На единственной строке через пробел:
числитель первой дроби A,
знаменатель первой дроби B,
арифметическое действие, одно из:
add — сложить A/B и C/D,
subtract — из A/B вычесть C/D,
multiply — умножить A/B на C/D,
divide — разделить A/B на C/D.
числитель второй дроби C,
знаменатель второй дроби D.

Выходные данные
Единственное число, если результат — целое число.
Числитель и через пробел знаменатель результата, если результат — дробь.

Никогда не писала что-либо с использованием графики, но, скорее всего, программа выглядит следующим образом:

uses  GraphABC;
var  x0, y0, x1, y1: integer;

begin   
   SetWindowSize(400, 400);//устанавливаем размер окна 
   x0 := WindowWidth;//ширина окна 
   y0 := WindowHeight;//высота окна   

   SetFontColor(clRed);//Устанавливаем цвет текста 
   TextOut(0, 0, 'Сергей');//Надпись в левом верхнем углу  
  
   x1 := WindowWidth div 2; //половина ширины окна 
   y1 := WindowHeight div 2;//половина высоты окна   

  SetFontColor(clBlue); 
  TextOut(x1, y1, 'Сергей');//Надпись посередине   

  SetFontColor(clYellow); 
  TextOut(0, y0, 'Сергей');//Надпись в левом нижнем углу  

  SetFontColor(clPurple); 
  TextOut(x0, 0, 'Сергей');//Надпись в правом верхнем углу   

  SetFontColor(clGreen); 
  TextOut(x0, y0, 'Сергей');//надпись в правом нижнем углу
end.

Программа была написана  в проверьте, работает ли она в вашем Pascal.

{$R+,S+,Q+} uses  SysUtils; const R=1000;type Mas= array [0..R] of integer;var  a: Mas;  en,n: integer;  x,y,z,q,w: char;function push(n: integer): string;begin  a[en]:=n;  en:=en+1;  push:='ok';end;function pop(): integer;begin  en:=en-1;  pop:=a[en];  a[en]:=0;end;function back(): integer;begin  back:=a[en-1];end;function size(): integer;begin  size:=en;end;function clear(): string;begin  en:=0;  clear:='ok';end;function exit(): string;begin  exit:='bye';end;begin  en:=0;  repeat    read(x);    if x='p' then    begin      read(y);      if y='u' then      begin        read(z,q,w);        readln(n);        writeln(push(n))      end else begin        readln(z);        writeln(pop());      end;    end;    if x='b' then    begin      readln(y,z,q);      writeln(back());    end;    if x='s' then begin      readln(y,z,q);      writeln(size());    end;    if x='c' then begin      readln(y,z,q,w);      writeln(clear());    end;    if x='e' then begin      readln(y,z,q);      writeln(exit());    end;  until x='e';end.