Это ж алиэкспресс. Но вообще и у моего друга так. Возможно там внутри что-то случилось допустим: провода там перегорели или что-то похожее
Сообщение информативно, если оно пополняет знания человека
Var x,y:real;
begin
readln(x);
if x<0 then y:=1
else if (x>=0) and (x<10) then y:=x+3
else if x>=10 then y:=x/2;
writeln(y);
<span>end.</span>
===== PascalABC.NET =====
begin
var n := ReadInteger('Длина массива:');
var a := new BigInteger[n];
var k := BigInteger.One;
for var i := n-1 downto 0 do
begin
a[i] := k;
k *= 2
end;
a.Println
end.
#include <iostream>
int main()
{
int side, S, P;
std::cout « "Enter side: ";
std::cin » side;
P = side * 4;
S = side * side;
std::cout « "\nP = " « P « "\nS = " « S;
return 0;
}