//PascalABC
var
N : integer;
begin
write('Введите число > ');
readln(N);
write('Получите модуль числа > ', abs(N));
end.
Если,у тебя есть компьютер,то это- собственно, это и есть компьютер, по крайней мере, его самая наиважнейшая составляющая. В системном блоке размещены основные устройства приема, передачи, обработки и хранения информации. Именно к нему подключаются все, без исключения, устройства компьютера, например, монитор, клавиатура, принтер.(он может находиться на полу так же и на столе у кого как у меня на полу к примеру в нём ещё есть дисковод))
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(10,-99,99); a.Println
end.
<u><em>Тестовое решение</em></u>
-12 -89 55 66 41 -31 17 -25 -34 -71
Program Program1;
var
i,n,y:integer;
begin
write('Введите значение n: ');
readln(n);
i:=2;
y:=1;
while i<=2*n do
begin
y:=y*i;
inc(i,2);
end;
writeln('y=',y);
end.