Помогите пожалуйста)))))))))))))))

1 ) 1

2) 1 -gt; d

2 -gt; a

3 -gt; b

4 -gt; c

3) if (agt;=c) then s:=a+b;

4)9 (изначально, a=8; b=4; c=3

потом, a=1; b=5; c=абс(-9)=9 (функция абс() - модуль числа)

5) var

kar,tetr,sum: real;

nk,nt: integer;

begin

writeln('Вычисление стоимости покупки.');

write('Стоимость тетради (руб.) = ');

readln(tetr);

write('Количество тетрадей = ');

readln(nt);

write('Стоимость карандаша руб.) = ');

readln(kar);

write('Количество карандашей = ');

readln(nk);

sum:=tetr*nt+kar*nk;