Если я правильно понял задание:
public static void main(String[] args){
Scanner input = new Scanner();
int n = input.nextInt();
float x = input.nextFloat();
long a;
for (int i = 0; i<n; ++i){
a = i + x;
}
System.out.println(a);
}
Program primer;
const n=5;
var a:array[1..n] of integer;
i:integer;
begin
writeln ('vvedite massiv');
for i:=1 to n do
readln( a[i]);
for i:=1 to n do
if (a[i] mod 2=0)>(a[i] mod 2=1) then
writeln ('ceotnih cisel bolise')
else
writeln('neceotnih cisel bolise');
readln;
<span>end.</span>
Var x,y,k,err:integer;s:string;d,e:real;
begin
err:=0;
read (x,y);
d:=max (x+y,y-x) + 3;
e:=min (sqr(x)+sqr(y),sqr(y)+x*y) - 4;
str (e,s);
k:=length(s);
val (s,e,err);
if (d<e) then
begin
d:=d+(e div (10*(k-1)));
end else
begin
d:=power (d,1/(e div (10*(k-2))));
end;
writeln (d);
end.