Составьте собственную задачу в Паскале.Срочно!!!!!!

Найти сумму, произведение и частное чисел:var a,b, s,d,p: real;begin    writeln('Введите 2 числа:');    read(a,b);      s:=a+b;      a:=s-b;      b:=s-a;    writeln('Сумма=',s,' a=',a,' b=',b);     //*****      d:=a/b;    if b=0 then      write('На 0 делить нельзя')    else      begin        a:=d*b;        b:=a/d;        writeln('Частное=',d,' a=',a,' b=',b);      end;    //*****      p:=a*b;      a:=p/b;      b:=p/a;    writeln('Произведение=',p,' a=',a,' b=',b);end.