Нужно переписать программу с pascal на С++

[ALiKa ALiK]

1.
program dompab;
uses crt;
var a,b,z,r:real;
c:boolean;

begin
writeln('Введите а и b');
readln(a);
readln(b);
r:=2.5;
c:=(((a-5)*(a-5)+(b-5)*(b-5))>r*r) and (((a-5)*(a-5)+(b+5)*(b+5))>r*r) and (((a+5)*(a+5)+(b-5)*(b-5))>r*r) and (((a+5)*(a+5)+(b+5)*(b+5))>r*r) and ((a<5) and (a>-5)) and ((b<5) and (b>-5));
if c then
begin
if a>b then
begin
z:=(3*a)+(4*b*b);
writeln('Точка попадает в эту область, число z= ',z)
end
else
begin
z:=(2*b)-(6*a*a);
writeln('Точка попадает в эту область, число z= ',z)
end
end
else
begin
z:=(a+b)/2;
writeln('Точка не попадает в эту область, число z= ',z)
end
end.
2.
program lab15;
uses crt;
type putevka=record
nazv:string[20];
strana:string[20];
stpr:integer;
stdor:integer;
summ:integer;
end;
var put:array [1..100] of putevka; xutevka;
n,l,i,summ:integer;
k:string;

procedure vvod(var n:integer);
var i:integer;
begin
for i:=1 to n do
begin
write('Введите название курорта*: ');
readln(put[i].nazv);
write('Веедите страну: ');
readln(put[i].strana);
write('Введите стоимость проживанния: ');
readln(put[i].stpr);
write('Введите стоимость дороги: ');
readln(put[i].stdor);
put[i].summ:=put[i].stpr+put[i].stdor;
end;
end;

procedure summa(n:integer;var summ:integer; var k:string);
var i:integer;
begin
for i:=1 to n do
writeln('название курорта ',put[i].nazv,' цена путевки ', put[i].summ) ;
end;


begin
writeln('Введите количество путевок');
readln(n);
vvod(n);
summa(n,summ,k)
end.

[silent_1991]

Первая

#include <stdio.h>

int main()
{
    double a, b, z, r;
    int c;
    
    printf("Vvedite a i b:\n");
    scanf("%lf", &a);
    scanf("%lf", &b);
    
    r = 2.5;
    c = (((a - 5) * (a - 5) + (b - 5) * (b - 5)) > r * r) &&
        (((a - 5) * (a - 5) + (b + 5) * (b + 5)) > r * r) &&
        (((a + 5) * (a + 5) + (b - 5) * (b - 5)) > r * r) &&
        (((a + 5) * (a + 5) + (b + 5) * (b + 5)) > r * r) &&
        ((a < 5) && (a > -5)) && ((b < 5) && (b > -5));
    
    if (c)
    {
        if (a > b)
        {
            z = (3 * a) + (4 * b * b);
            printf("Tochka popadaet v etu oblast', chislo z = %lf\n", z);
        }
        else
        {
            z = (2 * b) - (6 * a * a);
            printf("Tochka popadaet v etu oblast', chislo z = %lf\n", z);
        }
    }
    else
    {
        z = (a + b) / 2;
        printf("Tochka ne popadaet v etu oblast', chislo z = %lf\n", z);
    }
    
    getch();
    return 0;
}

[silent_1991]

Вторая

#include <stdio.h>

typedef struct
{
    char nazv[20];
    char strana[20];
    int stpr;
    int stdor;
    int summ;
} putevka;

putevka put[100];
int n, l, i, summ;
char k[128];

void vvod(int n)
{
    int i;
    
    for (i = 0; i < n; i++)
    {
        printf("Vvedite nazvanie kurorta: ");
        scanf("%s", put[i].nazv);
        printf("Vvedite stranu: ");
        scanf("%s", put[i].strana);
        printf("Vvedite stoimost' prozhivaniya: ");
        scanf("%d", &put[i].stpr);
        printf("Vvedite stoimost' dorogi: ");
        scanf("%d", &put[i].stdor);
        put[i].summ = put[i].stpr + put[i].stdor;
    }
}

void summa(int n, int *summ, char *k)
{
    int i;
    
    for (i = 0; i < n; i++)
        printf("\nNazvanie kurorta %s, cena putevki %d", put[i].nazv, put[i].summ);
}

int main()
{
    printf("Vvedite kolichestvo putevok: ");
    scanf("%d", &n);
    vvod(n);
    summa(n, &summ, k);
    
    getch();
    return 0;
}