Вывести стоимость всех товаров в начале рабочего дня и стоимость всех не проданных товаров.

var
  kolA, kolB, prodA, prodB : integer;
  cA, cB : real;
begin  
  repeat
    write('введите количество товаров A в начале рабочего дня: ');
    readln(kolA);
    write('введите количество проданых товаров A: ');
    readln(prodA);
    write('введите цену товара A: ');
    readln(cA)
  until (cA > 0) and (kolA >= 1) and (prodA <= kolA);
  repeat
    write('введите количество товаров B в начале рабочего дня: ');
    readln(kolB);
    write('введите количество проданных товаров B: ');
    readln(prodB);
    write('введите цену товара B: ');
    readln(cB)
  until (cB > 0) and (kolB >=1) and (prodB <= kolB);
  writeln('стоимость товаров A в начале дня: ', cA * kolA);
  writeln('стоимость товаров B в начале дня: ', cB * kolB);
  writeln('суммарная стоимость в начале дня: ', cA * kolA + cB * kolB);
  writeln('стоимость непроданных товаров A: ', cA * (kolA - prodA));
  writeln('стоимость непроданных товаров B: ', cB * (kolB - prodB));
  writeln('суммарная стоимость непроданных товаров: ', cA * (kolA - prodA) + cB * (kolB - prodB))
end.