Объяснение:

Я тебе напишу основу

Program xz;

Var a,b,c:integer; r:real; если в формуле деления нет, тогда r будет в делении

begin

writeln('a=');

readln(a);

writeln('b=');

readln(b);

writeln('c=');

readln(c);

сюда свои формулы вписывешь

потом пишешь

writeln('r=',r)

end.