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