var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
Var A:array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do begin
A[i]:=(random(101)-50);
writeln (A[i]);
end;
<span>end.
</span>
#include <iostream>
using namespace std;
int main() {
double x1, y1, x2, y2;
cout << "x1 = ";
cin >> x1;
cout << "y1 = ";
cin >> y1;
cout << "x2 = ";
cin >> x2;
cout << "y2 = ";
cin >> y2;
if (x1 * x1 + y1 * y1 < x2 * x2 + x1 * x1) {
cout << "(" << x1 << "; " << y1 << ")";
} else {
cout << "(" << x2 << "; " << y2 << ")";
}
return 0;
}<span />