@wow111p

Люди, помогите сделать программу "магазин соков", сам код есть, осталось перевести его в форму и там всё настроить. Так же помогите доработать ограничение на внесение денежных средств
Буду благодарен если вышлите программу с рабочей формой на e-mail: grishka.lop@gmail.com

код:
program rspsit;
uses crt;
const sttovar1=50;
const sttovar2=60;
const sttovar3=70;

var vneseno:integer;
t1,t2,t3:integer;
tovar:integer;
begin
clrscr;
writeln ('максимальное количество денег для внесения = 100 рублей');
writeln ('Автомат работает только с кюпюрами достоинством 50 и 100 рублей');
writeln ('Вводить купюру можно только один раз за операцию');
writeln ('вставьте деньги в купюро приёмник');
readln (vneseno);

t1:=1;
t2:=2;
t3:=3;

writeln ('Товар 1 стоит 50 рублей');
writeln ('Товар 2 стоит 60 рублей');
writeln ('Товар 3 стоит 70 рублей');
writeln ('выберите товар и введите его номер');
readln (tovar);
if (tovar>=1) and (tovar<=3) then
case tovar of
1:begin if t1=1 then if
vneseno=sttovar1 then writeln ('возьмите товар, спасибо за покупку') else if vneseno<sttovar1
then writeln ('введено мало средств, чтоб закончить операцию нажмите ESC')
else writeln ('спасибо за покупку, возьмите сдачу!',' ','cдача','=',vneseno-sttovar1);
end;
2:begin if t2=2 then if
vneseno=sttovar2 then writeln ('возьмите товар, спасибо за покупку') else if vneseno<sttovar2
then writeln ('введено мало средств, чтоб закончить операцию нажмите ESC')
else writeln ('спасибо за покупку, возьмите сдачу!',' ','cдача','=',vneseno-sttovar2);
end;
3: begin if t3=3 then if
vneseno=sttovar3 then writeln ('возьмите товар, спасибо за покупку') else if vneseno<sttovar3
then writeln ('введено мало средств, чтоб закончить операцию нажмите Esc')
else writeln ('спасибо за покупку, возьмите сдачу!',' ','cдача','=',vneseno-sttovar3);
end;
end
else writeln ('такого товара нет, для выхода нажмите ESC');
end.

0