Как изобразить вирус компа на бумаге

Всмысле нарисовать как? если да,то нарисуй компьютер и например рядом с ним градусник,чай горячий,и нарисуй как будто он в кровати лежит. а вообще включай фантазию)

Const       n = 10; var       i, c: integer;       a, w: array[1..n] of integer; begin       randomize;             writeln('исходный массив: ');       for i : = 1 to n do       begin               a[i] : = random(201) - 100;               write(a[i], ' ');       end;       writeln;             c : = 0;       for i : = 1 to n do               if a[i] > 0 then               begin                       c : = c + 1;                       w[c] : = a[i];               end;             writeln('кол-во положительных элементов: ', c);       for i : = 1 to n do       begin               if a[i] < = 0 then               begin                       c : = c + 1;                       w[c] : = a[i];               end;       end;             writeln('результат: ');       for i : = 1 to c do               write(w[i], ' '); end.

Const   n = 15; var   a: array[1..n] of integer;   i,sp,sn: integer; begin   randomize;   writeln('элементы массива');   sp: =0; sn: =0;   for i : = 1 to n do   begin       a[i] : = random(51)-25;       write(a[i]: 4);       if a[i]< 0 then sn: =sn+a[i]       else sp: =sp+a[i]   end;   writeln;   writeln('частное: ',sp/abs(sn)) end. тестовое решение: элементы массива     2 -25    0    5  24    4    3    1  12  13  10    1    6  13 -17 частное: 2.23809523809524 вариант со вводом данных с клавиатуры: const   n = 15; var   a: array[1..n] of integer;   i,sp,sn: integer; begin   writeln('вводите через пробел элементы массива');   sp: =0; sn: =0;   for i : = 1 to n do   begin       read(a[i]);       if a[i]< 0 then sn: =sn+a[i]       else sp: =sp+a[i]   end;   writeln('частное: ',sp/abs(sn)) end.