Смоделируйте таблицу для вычисления стоимости комплектующих компьютера: ноутбук, мышь и
принтер.
denen
залишите используемые формулы в таблице используйте зарезервированные функции.​

uses crt; var  i,s: integer; begin  i: =2; s: =1;   while i< =10 do  begin    s: =s*i;     i: =i+2;   end;   write(s); end.

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

пломп лпмб_лпмплпмб й об лпмбц_лпмплпмб

(около кола _колокола и на колах _колокола)