Помогите ПОЖАЛУЙСТА !
2 задачи ! по теме условный оператор
1) написать программу для вычисления стоимости покупки однородного товара ( например шоколад )
программа запрашимает кол-во товаров и цену одной единицы товара и выдаёт на экран стоимость покупки
2 задача .
написать программу для определения наступило ли совершеннолетие человека . программа запрашивает возраст и выдаёт ответ

1)var i,n:integer;x,p:real;beginreadln(n,x);p:=1;for i:= 1 to n dop:=p*x;write(p);readlnend.2)var x:integer;beginreadln(x);if x < 18 thenwrite('да')elsewrite('нет');readlnend.