Написать программу на Паскале абс

#include "stdafx.h"
#include "windows.h"
#include "locale.h"

int main(){
setlocale(0, "");
int n, a1, d, sum, A1, A2, an;
printf("Введите первый элемент прогрессии  \n");
scanf_s("%i", &a1);
printf("Введите число элементов геометрической прогрессии \n");
scanf_s("%i", &n);
printf("Введите разность арифметической прогрессии \n");
scanf_s("%i", &d);
sum = ((2 * a1 + d*(n - 1)) / 2)*n;
an = a1 + d*(n - 1);
A1 = an - d;
A2 = an + d;
printf("Номер      An-1   An   An+1   sum \n");
printf("Значение   %i      %i    %i    %i \n", A1, an, A2, sum);
system("pause");
return 0;
}

Условие попадания точки в полукруг можно записать в виде


#include <iostream>

using namespace std;

int main(){
    float x,y,R;
    cout<<"Vvedite a,b,R\n";
    cin>>x>>y>>R;
    if (x>=0 && x*x+y*y<=R*R)
        cout<<"\nPopadaet\n";
    else
        cout<<"\nNe popadaet\n";
}

Тестовое решение:
Vvedite a,b,R
3
5
7

Popadaet

--------------------------------
Process exited after 15.45 seconds with return value 0
Для продолжения нажмите любую клавишу . . .

Vvedite a,b,R
4
-2
3

Ne popadaet

--------------------------------
Process exited after 27.79 seconds with return value 0
Для продолжения нажмите любую клавишу . . .