Вычислить функцию y=sqrt(1-x) на интервале от -5 до 5 с шагом 0,5 (с цикла пока).

вычислить функцию y=sqrt(1-x)/(x+1) на интервале от -5 до 5 с шагом 0,5 (с цикла до).
паскаль

#include <iostream>

#include <math.h>

using namespace std;

int main(){

int x1,y2,x2,y2, r1, r2;

cin >> x1 >> y1 >> endl; //вводим координаты первой точки

cin >> x2 >> y2 >> endl; //вводим координаты второй точки

r1 = sqrt(x1*x1 + y1*y1); //находим расстояние от первой

r2 = sqrt(x2*x2+y2*y2) //от второй

if (r1>r2){

cout << "Точка 1 ближе к началу координат";

}

else{

cout << "Точка 2 ближе к началу координат";

}

else if (r1=r2){

cout << "Эти точки равны"

}

return 0;

}

Pascal

var a,b: array of integer;

i,k,s1,s2: integer;

begin

s1:=0;

s2:=1;

write('Введите количество элементов массива');

readln(k);

setlength(a,k);

setlength(b,k);

for i:=0 to k-1 do

begin

write('Ввод данных для a[',i,']=');

readln(a[i]);

if a[i]>0 then s1:=s1+a[i] else s2:=s2*a[i];

end;

writeln('Данные массива A:');

for i:=0 to k-1 do writeln('a[',i,'] = ',a[i]);

writeln;

writeln('Данные массива B:');

for i:=0 to k-1 do

begin

if a[i]>0 then b[i]:=s2 else b[i]:=s1;

writeln('b[',i,'] = ',b[i]);

end;

end.