Пожалуста помгите решить задачу по поскале abc Составить программу рассечата…

program otnoshenie; uses Crt; var a,b: integer; begin write ('a='); readln (a); write ('b='); readln (b); if (a<>0) and (b<>0) then begin writeln ('a/b=',round (a/b); writeln ('b/a=',round (b/a); end else writeln ('Ошибка ввода'); end;