Переделать код на паскале под c++

Uses crt;Var x,y,xn,yn,m,n,r,q,d,e,f,g,h,i:real;BEGIN
Writeln<'Решим систему уравнений методом простой итерации.'>;Readln;
Writeln<'Введите начальное значение x '>;Readln<x>;
Writeln<'Введите начальное значение y '>;Readln<y>;
Writeln<'Введите точность определения корня '>;Readln<e>;
 xn:=x; yn:=y;
d:=<2*x>/5; f:=<2*y>/5; g:=<2*x>/5; h:=<-2*y>/5;
If <d+f+g+h><1 then
  writeln<'Требование сходимости итерационного процесса выполняется'>
  else writeln<'Требование сходимости итерационного процесса не выполняется'>;
 Readln;
   Repeat Begin
      x:=xn; y:=yn;
     xn:=<x*x+y*y>/5+0.200; yn:=<x*x-y*y>/5+0.400;
                                        i:=i+1;
                               END;
     until <ABS<xn-x><=e> and <ABS<yn-y><=e>;
     if   <d+f+g+h><1 then writeln<'Мы получили ответ x=' ,xn:0:2, '   y=' ,yn:0:2,
'  на ' , i:0:0, ' шаге итерации. '> else Writeln<'Нет решений'>;
  Readln;
END.