Program m1;
Var x,n,i:integer;
begin
Readln (x,n);
For i:=1 to n do begin
x:=x*x;
end;
Write ('x=',x);
readln;
end.
Похоже на то, что ящик ждет на вход только число и выводит 1. если оно нечетное и 0 - если четное. Если на вход задано не число, то ящик выводит "Не могу".
В пустой строке 0.
Наиболее удобной формой для представления большого количества однотипной информации является ТАБЛИЦА
Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.
На Паскале
var a: array [1..5] of integer;
i: integer;
p, m: integer;
begin
for i:=1 to 5 do begin
readln(a[i]);
If a[i] < 0 then
m:= m+a[i]
else
p:=p+a[i];
end;
writeln(p/abs(m));
end.