Переделать код Pascal в С++

[Alinak18]

Type	
student = record	
fam: string[20];
name: string[20];
ot4: string[20];
Pac: string[5];
Ci:string[5];
end;
Var
  z:array[1..20]of student;
  i,n:byte;
  e,q,w:string;
  k,p,o:integer;
begin
  write('Введите количестов студентов: ');
  readln(n);
  for i:=1 to n do begin
    write('Ввдите фамилию: ');
    readln(z[i].fam);
    write('Ввдите имя: ');
    readln(z[i].name);
    write('Ввдите отчество: ');
    readln(z[i].ot4);
    write('знает ли вы язык программирования Pascal ABC?: ');
    readln(z[i].Pac);
    write('знает ли вы язык программирования C++?: ');
    readln(z[i].Ci);
  end;
  k:=0;
  p:=0;
  o:=0;
  for i:=1 to n do begin
   if z[i].Pac='Да' then begin
      write('Где вы обучиались и солько лет,',z[i].name,'?: ');
      readln(q);
      k:=k+1;
    end 
    else
   if z[i].Ci='Да' then begin
      write('Где вы обучиались и солько лет,',z[i].name,'?: ');
      readln(w);
      p:=p+1;
    end
    else
      if (z[i].Pac='Да') and (z[i].Ci='Да') then begin
      write('Где вы обучиались и солько лет,',z[i].name,'?: ');
      readln(e);
      o:=o+1;
      end;
      end;
    for i:=1 to n do 
      writeln('Кол-во студентов знающих язык программирования Pascal ABC: ',k);
      writeln('Кол-во студентов знающих язык программирования C++: ',p);
      writeln('Кол-во студентов знающих оба языка программирования: ',o);
end.