Определить разрядность и знак числа из интервала [-100;100] число задать случайным образом. Pascal ABC

Var
n:integer;
b,c:string;
begin
n:=random(200)-100;
if n>0 then
b:=+ else b:=-;
if (abs(n)>10) then
c:=десятки;
if (abs(n)<10) then
c:=единицы;
writeln(число=,n, знак ,b,разрадность ,c);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.