Перевод с Pascal на C++

[Ru1nN]

Всем привет, есть программа на Pascal, но нужно перевести на С++, как это сделать понять не могу, ни кто не сможет помочь?

Само задание:
http://i018.radikal.ru/1112/5d/3a4fd6a33c21.jpg


program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
x,y,maxx,maxy:real;
i,j,t:integer;
s:string;

begin
try
x:=0;
maxx:=0;
repeat
y:=0;
if x<=1 then
repeat
if (x-1)*(x-1)+y*y<=1 then s:= ' DA ' else s:=' NET ';
write(' x=',x:3:1,' y=',y:3:1,s);
if s=' yes ' then
if x>maxx then
begin
maxx:=x;
maxy:=y;
end;
inc(t);
if t mod 2=0 then writeln;
y:=y+0.3;
until y>1.5
else
repeat
if (x-1)*(x-1)+y*y<=1 then s:=' DA 'else s:=' NET ';
write(' x=',x:3:1,' y=',y:3:1,s);
if s=' yes ' then
if x>maxx then
begin
maxx:=x;
maxy:=y;
end;
inc(t);
if t mod 2=0 then writeln;
y:=y+0.3;
until y>2.1 ;
x:=x+0.6;
until x>2;
write('tochka s max x vnutri kruga x=',maxx:3:1,' y=',maxy:3:1);
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
sleep(60000); // показывать форму в течении 1 минуты
end.