Очень срочно!!! Помогите с заданиями по ИНФОРМАТИКЕ, надо написать несколько программ:

Решение на Pascal ABC (Turbo Pascal)
задача №1

var x: integer;
begin
writeln ('введите число');
while x<=0 do
begin
write ('x=');
read (x);
if x < 0 then writeln (' это число отрицательное ');
if x = 0 then writeln (' это число "нуль" ');
end;
writeln (x, ' - число положительное ');
end.

Задача №2

var x, y: integer;
begin
writeln ('введите 1-е число ');
read (x);
writeln ('введите 2-е число ');
repeat
read (y);
until y <> x;
if x > y then writeln (' число ', x, ' больше ', y)
else writeln (' число ', y, ' больше ', x)
end.

Задача №7
var i, max, x: integer;
begin
i:=1;
while i<=3 do
begin
write (' x = ');
readln (x);
if i=1 then
max:=x;
if x>max then max:=x;
inc (i);
end;
writeln;
writeln ('maximum ', max);
end.

Задача №6
var i, sum, x, pro: integer;
begin
i:=1;
sum:=0;
pro:=1;
while i<=5 do
begin
write (' x',i,' = ');
readln (x);
pro:=pro*x;
sum:=sum+x;
inc (i);
end;
writeln;
if sum > pro then writeln ('summa > proizv')
else writeln ('proizv > summa');
end.

1) int x; cin >> x; cout << (x>0)?"да":"нет";
2) int x,y; cin >> x >> y; cout << (x>y)?x:y;
3) int a,s=0,m=1; for ( int i=0; i < 5; i++ ) { cin>>a; s+=a;m*=a; } cout (s>m)?s:m;