создайте программку для вычисления стоимости покупки некоторого количества (по весу )

Program one;var a,b,c,d,e,g:integer;beginwriteln('Введите стоимость помидор за один килограмм (в рублях)');readln(a);writeln('Введите вес помидор');readln(b);writeln('Цена покупки: ',a*b,' руб');writeln('Введите стоимость огурцов за один килограмм (в рублях)');readln(c);writeln('Введите вес огурцов');readln(d);writeln('Цена покупки: ',c*d,' руб');writeln('Введите стоимость яблок за один килограмм (в рублях)');readln(e);writeln('Введите вес яблок');readln(g);writeln('Стоимость покупки: ',e*g,' руб');end.
Также гляди вложение .