Опишите переменную Tovar для хранения структуры данных - Turbo Pascal

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

На картинке схема.

Решение задачи: «Опишите переменную Tovar для хранения структуры данных»

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

type tovar=record
           f_pst:string[20];
           stms:real;
           kolc:integer;
           naim:string[20];
           s_pst:string[20];
           d_pst:record
                 d,m,g:integer
                 end;
           end;
var t:tovar;

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

В данном коде описывается переменная tovar, которая представляет собой структуру данных. Эта структура содержит следующие поля:

f_pst - строка из 20 символов.
stms - вещественное число.
kolc - целое число.
naim - строка из 20 символов.
s_pst - строка из 20 символов.
d_pst - структура данных, содержащая три поля: d, m и g - все целые числа. Переменная t инициализируется значением типа tovar.