Здравствуйте. Помогите решить Домашние задаие по информатике.

{Здравствуйте. Вашу просьбу правильно формулировать так: решите моё домашнее задание по информатике. Есть те, кто ищет шару. Их можно назвать хитрожопыми. Но есть и посолидней категории. Или для тех кто платит за своё задание или для тех кто включает свой мозг и решает его самостоятельно. Кто ещё кроме Вас решит в какой категории оставаться? } var totalM,totalTu,totalT:integer; ApplePrice,PearPrice,OrangesPrice:integer; AppleNumber,PearNumber,OrangesNumber:integer; AppleMoney,PearMoney,OrangesMoney:integer; begin totalT := 0; totalM := 0; totalTu := 0; writeln('Введите цену яблок за один кг. '); readln(ApplePrice); writeln('Введите цену груш за один кг. '); readln(PearPrice); writeln('Введите цену апельсин за один кг. '); readln(OrangesPrice); writeln('Введите сколько кг яблок, груш и апельсин продано в понедельник. '); writeln('Введите три числа (яблоки, груши, апельсины) : '); writeln('Сколько яблок в понедельник? '); readln(AppleNumber); AppleMoney := ApplePrice * AppleNumber; totalM := totalM + AppleMoney; writeln('Сколько груш в понедельник? '); readln(PearNumber); PearMoney := PearPrice * PearNumber; totalM := totalM + PearMoney; writeln('Сколько апельсин в понедельник? '); readln(OrangesNumber); OrangesMoney := OrangesPrice * OrangesNumber; totalM := totalM + OrangesNumber; writeln('Сколько яблок во вторник? '); readln(AppleNumber); AppleMoney := ApplePrice * AppleNumber; totalTu := totalTu + AppleMoney; writeln('Сколько груш во вторник? '); readln(PearNumber); PearMoney := PearPrice * PearNumber; totalTu := totalTu + PearMoney; writeln('Сколько апельсин во вторник? '); readln(OrangesNumber); OrangesMoney := OrangesPrice * OrangesNumber; totalTu := totalTu + OrangesNumber; totalT := totalTu + totalM; writeln('В понедельник, магазин продал фруктов на ',totalM,' рублей. '); writeln('Во вторник, магазин продал фруктов на ',totalTu,' рублей. '); writeln('За два дня магазин продал фруктов на сумму ',totalT,' рублей. '); end.

Тебе в "Образование", а не сюда

получай честно банан и не раздувай щеки.

Паскаль?

На чём написать надо?

Чувак тебе де это надо а не нам!