======Ukr======
program gradute-s-dress;
var whifab16, bluefab16, atl16, lin16, Ea6, Fd6, Ls6, Sk6, summ16 : real;
begin
clrscr;
writeln (введіть числа, де whifab16 - вартість органзи, грн/м, bluefab16 - вартість креп-атласу для підкладки спідниці, грн/м, atl16 - вартість атласу для корсету, грн/м, lin16 - вартість підкладки, грн/м);
readln (whifab16, bluefab16, atl16, lin16);
Ea6: = whifab16 * 3,5;
Fd6: = bluefab16 * 3,0;
Ls6: = atl16 * 0,6;
Sk6: = lin16 * 0,5;
sum16: = Ea6 + Fd6 + Ls6 + Sk6;
writeln (summ16 - необхідна сума, грн);
end.
=======Rus========
program gradute-s-dress;
var whifab16, bluefab16, atl16, lin16, Ea6, Fd6, Ls6, Sk6, summ16 : real;
begin
clrscr;
writeln (введите числа, где whifab16 - стоимость органзы, р/м, bluefab16 - креп-атласа для подкладки юбки, р/м, atl16 - стоимость атласа для корсета, р/м, lin16 - стоимость подкладки, р/м);
readln (whifab16, bluefab16, atl16, lin16);
Ea6: = whifab16 * 3,5;
Fd6: = bluefab16 * 3,0;
Ls6: = atl16 * 0,6;
Sk6: = lin16 * 0,5;
sum16: = Ea6 + Fd6 + Ls6 + Sk6;
writeln (summ16 - необходимая сумма, р);
end.
=======Eng========
program gradute-s-dress;
var whifab16, bluefab16, atl16, lin16, Ea6, Fd6, Ls6, Sk6, summ16 : real;
begin
clrscr;
writeln (please, write some information, where whifab16 - costs of transparent fabric, $/m, bluefab16 - costs of crepe-satin for lining of skirt, $/m, atl16 - costs of satin, $/m, lin16 - costs of lining, $/m);
readln (whifab16, bluefab16, atl16, lin16);
Ea6: = whifab16 * 3,5;
Fd6: = bluefab16 * 3,0;
Ls6: = atl16 * 0,6;
Sk6: = lin16 * 0,5;
sum16: = Ea6 + Fd6 + Ls6 + Sk6;
writeln (summ16 - summa for paying, $);
end.
Рассчет выполнен для выпускного платья.
http://photo.i.ua/user/5202286/351830/12671086/B = 3,5 м - необходимое количество органзы,
D = 3,0 м - необходимое количество креп-атласа для подкладки юбки,
L = 0,6 м - необходимое количество атласа для корсета,
S = 0,5 м - необходимое количество подкладки для корсета
