Что эта программа делает? Program v1;Var k,i:integer;Begink:=0;If i mod 3=0 then...

Question

Что эта программа делает? Program v1;
Var k,i:integer;
Begin
k:=0;
If i mod 3=0 then k:=k+1;
Writeln(k);
End.

Answer 1

READLN (X) ; IF X MOD 2=0 THEN WRITELN(X*X+(SQRT2)) ELSE WRITELN(X*X*X+X) END.