во первых 1abc нельзя что бы название программы начиналось с цифры
после wiriteln количество денег написать readln(h)
после введите стоимость портфеля должно быть ;
begin
var Пауков := 0;
while Пауков < 9 do
begin
if (37 - 4 * Пауков) mod 3 = 0 then
begin
var Тараканов := (37 - 4 * Пауков) div 3;
Println('Пауков -', Пауков, ' Тараканов - ', Тараканов)
end;
Inc(Пауков)
end;
end.
Var
n,a,k,i:integer;
begin;
k:=1;
readln(n);
for i:=1 to n do
begin;
readln(a);
if (a>8) and (a<15) then k:=k*a;
end;
writeln(k);
end.
1150
M-1000
C-100
L-50
Вот так вот думаю получается легкий вопрос