Описать тип Tovar - Pascal ABC (13611)

Формулировка задачи:

Описать тип Tovar с полями name ( название), kod (код товара), price (цена) , number (количество) . Заполнить массив из 20 элементов данного типа. Найти общую стоимость всех товаров.

задача изиришай сам лоль

Решение задачи: «Описать тип Tovar»

Листинг программы

program pr;
 
const
  n = 20;
 
type
  tovar = record
    name: string[50];
    kod: integer;
    price: integer;
    number: integer;
  end;
 
var
  staf: array [1..n] of tovar;
  i, sumt: integer;
 
begin
  sumt := 0;
  for i := 1 to n do
  begin
    writeln('Введите название товара');
    readln(staf[i].name);
    writeln('Введите код товара');
    readln(staf[i].kod);
    writeln('Введите цену товара');
    readln(staf[i].price);
    writeln('Введите количество товара');
    readln(staf[i].number);
  end;
  for i := 1 to n do
  begin
    writeln('Наименование: ',staf[i].name);
    writeln('Код: ',staf[i].kod);
    writeln('Цена на 1 шт: ',staf[i].price);
    writeln('Количество товара: ',staf[i].number);
    writeln;
  end;
  writeln;
  for i := 1 to n do
  begin
    sumt := (sumt + (staf[i].number * staf[i].price));
  end;
  writeln('Общая стоимость всего товара: ', sumt);
end.

Объяснение кода листинга программы

Создается программа типа pr на языке Pascal ABC.
В константной части определяются значения, используемые в программе: n = 20.
В типовой части определяется новый тип данных товар, который представляет собой запись с полями название, код, цена и количество. Каждое поле представлено строкой длиной 50 символов.
В переменной staf выделяется массив из n элементов типа товар.
В переменной i и sumt инициализируются значения типа integer.
В цикле for i := 1 до n выполняется следующий набор действий:
- Выводится сообщение Введите название товара.
- Считывается строка из файла ввода, сохраняемая в переменной staf[i].name.
- Выводится сообщение Введите код товара.
- Считывается строка из файла ввода, сохраняемая в переменной staf[i].kod.
- Выводится сообщение Введите цену товара.
- Считывается строка из файла ввода, сохраняемая в переменной staf[i].price.
- Выводится сообщение Введите количество товара.
- Считывается строка из файла ввода, сохраняемая в переменной staf[i].number.
В цикле for i := 1 до n выполняется следующий набор действий:
- Выводятся сообщения с информацией о товаре, используя значения переменных staf[i].name, staf[i].kod, staf[i].price и staf[i].number.
- Выводится символ новой строки.
В цикле for i := 1 до n выполняется следующий набор действий:
- Значение переменной sumt увеличивается на произведение значения переменной staf[i].number и значения переменной staf[i].price.
В конце программы выводится сообщение Общая стоимость всего товара:, используя значение переменной sumt.