из Pascal в C++

[Frozen_Sky]

Помогите, пожалуйста, перевести небольшой код из Pascal в C++, си просто недавно изучать начал, пока испытываю трудности, а времени маловато осталось) Заранее благодарен :)

program ferz;
uses crt;
var h,v:array[1..8]of byte;
ch:char; k,i:integer;

begin
clrscr;
writeln('Vvedite koord. ferzei:');
for i:=1 to 3 do
begin
write(i,': ');
readln(ch,h[i]);
v[i]:=ord(upcase(ch))-64;
end;

k:=0;
if (v[1]=v[2]) or (h[1]=h[2]) or (abs(h[1]-h[2])=abs(v[1]-v[2])) then
begin;
writeln('Ugrozhauyt 1 i 2 ferzi');
inc(k);
end;

if (v[1]=v[3]) or (h[1]=h[3]) or (abs(h[1]-h[3])=abs(v[1]-v[3])) then
begin;
writeln('Ugrozhauyt 1 i 3 ferzi');
inc(k);
end;

if (v[3]=v[2]) or (h[3]=h[2]) or (abs(h[2]-h[3])=abs(v[2]-v[3])) then
begin;
writeln('Ugrozhauyt 2 i 3 ferzi');
inc(k);
end;

if k=0 then writeln('Nikakie ferzi drug drugu ne ugrozhauyt');
readln;
end.

[XPEHOMETP]

Ежели не особо заботит читаемость получаемого кода, можно воспользоваться автоматическими конвертерами из Паскаля в С/С++. А их не так мало:

PtoC (http://www.garret.ru/ptoc/Readme.htm) - скачивать отсюда (http://www.garret.ru/pascal.html)
p2c -- a Pascal to C translator (http://schneider.ncifcrf.gov/p2c/)
В последней ссылке забита строка поиска в Гугле на все остальное. А его (остального) немало!