Pascal abc написать программу вычесления стоимости покупки состоящей из нескольких тетрадей и карандашей

begin   //начало программы

var nk, nt, ck ,ct, s: integer   // переменных типа действительные числа;

writeln('введите количество карандашей'); //вывести на экран надпись

readln(nk);   // запись ответа пользователя в переменную nk

writeln('введите количество тетрадей'); //вывод на экран надписи

readln(nt); // запись ответа пользователя

writeln('введите стоимость 1 карандаша');   // вывод на экран надписи

readln(ck); // запись ответа пользователя в переменную

writeln('введите стоимость 1 тетради');

readln(ct);

s: =(nk*ck)+(nt*ct); // вычисление стоимости покупки

writeln('стоимость покупки: ',s);   // вывод стоимости покупки на экран

end.   // конец программы

(ck-стоимость 1 карандаша, ct-стоимость 1 тетради, s-стоимость покупки)

(nk-количество карандашей, nt-количество тетрадей)

#генерируем список из 2000 элементов my_list = [(lambda x: (x*296+2410)%4096)(i) for i in range(2000)] # начальное значение для временного минимума min1_value = min2_value = 10000 min1_number = min2_number = 0 while my_list:       x = my_list.pop()       if x < min1_value:               min2_value = min1_value               min2_number = min1_number               min1_value = x               min1_number = 1       elif x == min1_value:               min1_number += 1       elif x < min2_value:               min2_value = x               min2_number = 1       elif x == min2_value:               min2_number += 1                 print(min2_number)

var  a: array [1..100] of integer; i,n,min,max: integer; begin      read(n);       for i : = 1 to n do            read(a[i]);       min: =a[1];       max: =a[1];       for i: = 1 to n do begin            write(a[i],' ');             if max< a[i] then max: =a[i];             if min> a[i] then min: =a[i];       end;       writeln(min,max); end.