program Lab3_Pascal;
uses crt;

var
a, b, m, n, cost, positiveCount, i, sum: integer;
arr: array$$\mathrm{1..10}$$ of integer;

begin
// Ввод данных
write${}^{\prime }EnterthenumberoftextbooksboughtbyBuratino{:}^{\prime }$;
readln$n$;
write${}^{\prime }Enterthecostofeachtextbook{:}^{\prime }$;
readln$a$;
write${}^{\prime }EnterthenumberofpensboughtbyBuratino{:}^{\prime }$;
readln$m$;
write${}^{\prime }Enterthecostofeachpen{:}^{\prime }$;
readln$b$;

// Вычисляем общую стоимость покупки
cost := na + mb;
writeln${}^{\prime }Thetotalcostofthepurchaseis{:}^{\prime },cost$;

// Определяем количество положительных чисел среди трех введенных
positiveCount := 0;
write${}^{\prime }Enterthreenumbers{:}^{\prime }$;
for i := 1 to 3 do
begin
readln$arr[i]$;
if arr$$i$$ > 0 then
positiveCount := positiveCount + 1;
end;
writeln${}^{\prime }Thenumberofpositivenumbersenteredis{:}^{\prime },positiveCount$;

// Вычисляем сумму всех чисел от a до b
sum := 0;
write${}^{\prime }Entertwonumbers(aandb){:}^{\prime }$;
readln$a$;
readln$b$;
for i := a to b do
begin
sum := sum + i;
end;
writeln${}^{\prime }Thesumofallnumbersfro{m}^{\prime },a{,}^{\prime }t{o}^{\prime },b{,}^{\prime }is{:}^{\prime },sum$;

// Генерируем массив и считаем количество положительных чисел
for i := 1 to 10 do
begin
arr$$i$$ := random$20$ - 10;
if arr$$i$$ > 0 then
positiveCount := positiveCount + 1;
end;
writeln${}^{\prime }Thenumberofpositivenumbersinthearrayis{:}^{\prime },positiveCount$;

end.