во первых 1abc нельзя что бы название программы начиналось с цифры
после wiriteln количество денег написать readln(h)
после введите стоимость портфеля должно быть ;
1) 150+350+200+400 равно 1100 (кг) - яблок
2)1100\25 равно 44 (ящика)
И вниз..жесткий диск, процессор, оперативная память
Функции, конечно, распознаются с трудом. Возможно, что они такие:
var x,N:real;
begin
write('x=');readln(x);
if x<-2
then N:=exp(2*x) + exp(3*x) + abs(sqrt(x))
else if x<=2 then N:=exp(2*x) - sqrt(x*x+2)
else N:=(x*x+x+1)/(ln(x)+ln(2*x));
writeln('N=',N);
<span>end.</span>
Задание №1
var
h, m: integer;
begin
<span> write(</span>'Введите часы:');
readln(h);
<span> write(</span>'Введите минуты:');
readln(m);
writeln('Время в секундах:', h * 3600 + m * 60);
end.