Переведите в с++

[st.basic]

Привет всем!!!Помогите перевести с паскаля на С++
rectPS(x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных вершин (x1, y1, x2, y2 — входные, P и S — выходные параметры). В качестве результирующего значения функция должна возвращать истину, если прямоугольник не является вырожденным (т.е. одна из его сторон имеет нулевую длину) и ложь – в противном случае. С помощью этой процедуры найти периметры и площади трех прямоугольников с данными противоположными вершинами.

Используется синтаксис Pascal

program Prog5;
 var P, S, x1, y1, x2, y2:real;
 Procedure RectPS(x1, y1, x2, y2:real; var P, S:real); 
begin
P:=(abs(x1-x2)+abs(y1-y2))*2; 
S:=abs(x1-x2)*abs(y1-y2); 
end; /////// основная программа /////////////  
begin 
Writeln('Введите координаты 1 прямоугольника (x1,y1,x2,y2)');
 Read(X1);Read(Y2);Read(X2);Read(Y2); 
RectPS(x1,y1,x2,y2,P,S);
 Writeln('Периметр и площадь 1 прямоугольника ',P,' ',S); 
 Writeln('Введите координаты 2 прямоугольника (x1,y1,x2,y2)'); 
Read(X1);Read(Y2);Read(X2);Read(Y2); RectPS(x1,y1,x2,y2,P,S);
 Writeln('Периметр и площадь 2 прямоугольника ',P,' ',S);  
Writeln('Введите координаты 3 прямоугольника (x1,y1,x2,y2)'); 
Read(X1);
Read(Y2);
Read(X2);
Read(Y2); RectPS(x1,y1,x2,y2,P,S); 
Writeln('Периметр и площадь 3 прямоугольника ',P,' ',S); 
end.

[venco]

Здесь не приветствуется халява. Приведите свою попытку, а там посмотрим, что именно не получилость.