1 ) 1
2) 1 -> d
2 -> a
3 -> b
4 -> c
3) if (a>=c) then s:=a+b;
4) 9 (изначально, a=8; b=4; c=3
затем, a=1; b=5; c=abs(-9)=9 (функция abs() - модуль числа)
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;