78=>16
214=>326
89=>131
111=>157
Монитор системный блок клавиатура мышка
ЗАДАНИЕ 2
program magazin;
var c,k,p,s:integer;
begin
writeln ('Предельная сумма – ');readln(p);
s:=0;
REPEAT;
writeln('Цена товара – ');readln(c);
writeln('Количество товара – ');readln(k);
s:=s+c*k;
writeln('Стоимость покупки =',s);
UNTIL s>p;
writeln('Не хватает!');
end.
В девятой строке:
write ('Введите n>>')
Забыли ";"
Должно быть:
write ('Введите n>>');