Перевод из Pascal в C++

[ezu]

Может кто перевести код из Pascal в C++? Буду очень благодарен

uses crt;
type line=record {тип запись, коэффициенты уравнения}
          a,b,c:real;
          end;
const nmax=15;
var u:array[1..nmax] of line;{массив уравнений}
    n,i,j,k:integer;
begin
clrscr;
repeat
write('Количество прямых до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите коэффициенты уравнений a,b,c, a и b одновременно не равны 0:');
for i:=1 to n do
 begin
  writeln('Прямая ',i);
  repeat
  write('a=');readln(u[i].a);
  write('b=');readln(u[i].b);
  write('c=');readln(u[i].c);
  until(u[i].a<>0)or(u[i].b<>0);
 end;
clrscr;
writeln('Коэффициенты уравнений прямых:');
write('  ');
for i:=1 to n do
write(i:5);
writeln;
write('A:');
for i:=1 to n do
write(u[i].a:5:1);
writeln;
write('B:');
for i:=1 to n do
write(u[i].b:5:1);
writeln;
write('C:');
for i:=1 to n do
write(u[i].c:5:1);
writeln;
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if u[i].a*u[j].b<>u[j].a*u[i].b then k:=k+1;{если не параллельны и не совпадают}
write('Количество точек пересечения=',k);
readln
end.