ответ: Вот правильный (не уверен, но большинство ошибок думаю я исправил)
program dex;
uses
ctr;
var ck,ct,summa:real;
k,t:byte ;
begin
writeln('Skolko kupili karandashei??');
readln(t);
writeln('Skolko stoit odin karandash??');
readln(ck);
writeln('Skolko kupili tetradei??') ;
readln(t);
writeln('Skolko stoit odna tetrad??);
readln(ct);
summa:=k+ck+t*ct;
writeln ('summa pokupki = ',summa:6:2 ' rub.');
readln;
end.
я хз почему тут нужен модуль ctr
Немного не понял в какой из 3х програм тебе нужно это значение, но сделаю для всех.
1) Если в первой ввести n = 5, то S = 15
2) Если во второй программе n = 5, то S = 0
3) Если в третьей программе n = 5, то S = 15