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