Задача 3. Напишите вс функцию drawPC(t), которая рисует персональный компьютер (монитор и системный блок). Далее напишите основную программу, которая просит ввести координаты точки А, и рисует квадрат из персональных компьютеров, левый нижний проходит через точку А, сторона квадрата – 7 компьютеров. Основная программа должна работать до тех пор, пока пользователь на вопрос «Продолжить? (да/нет): » ответит «нет».

Program kk;
         var  x: array [1..100] of  real;
         n, i: integer;
         s, p: real;
begin
         cls;
         writeln ('Введите размерность массива :');
         readln (n);
         s:=0;
         writeln ('Введите элементы массива:');
           for i:=1 to n do
                                 begin
                                             write ('x[',i,']=');
                                             readln (x[i]);
                                             s:=s+x[i];
                                 end;
         writeln ('Полученная сумма равна ', s);
end. 

Var x, i, n, s: longint;                                      //объявление переменных
 begin s := 0;                                                 //изначально сумма равна 0
  read(x, n);                                                   //ввод x,n
  for i := 1 to n do s := s + trunc(power(x, i));//n раз
                                                                    //прибавляем к сумме x в i  
 //степени(power)
  write(s);                                                     //выводим сумму
end.