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

var nk, nt: integer;

ck, ct, s: real;

begin

writeln ('Введите количество карандашей');

readln (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-количество тетрадей)