first

=======Ukr=========

program green_skirt;
var grefabr, blackfabr, Ea1, Fd1, summ1 : real;

begin
clrscr;
writeln (введіть числа, де grefabr - вартість зеленої тканиини, грн/м, blackfabr - вартістть чорної тканини, грн/м);
readln (grefabr, blackfabr);
Ea1: = grefabr * 0,6;
Fd1: = blackfabr * 0,6;

summ1: = Ea1 + Fd1;
writeln (summ1 - необхідна сума, грн);

end.

=========Rus============

program green_skirt;
var grefabr, blackfabr, Ea1, Fd1, summ1 : real;

begin
clrscr;
writeln (введите числа, где grefabr - стоимость зеленой ткани, р/м, blackfabr - стоимость черной ткани, р/м);
readln (grefabr, blackfabr);
Ea1: = grefabr * 0,6;
Fd1: = blackfabr * 0,6;

summ1: = Ea1 + Fd1;
writeln (summ1 - необходимая сумма, р);

end.

========Eng========

program green_skirt;
var grefabr, blackfabr, Ea1, Fd1, summ1 : real;
begin
clrscr;
writeln (please, write some information, where grefabr - costs of green fabric, $, blackfabr - costs of black fabric, $);

readln (grefabr, blackfabr);
Ea1: = grefabr * 0,6;
Fd1: = blackfabr * 0,6;

summ1: = Ea1 + Fd1;
writeln (summ1 - summa for pay, $);

end.

Юбка, для которой делался расчет.

B = 0,6 м - необходимое количество зеленой ткани, м;

D =0,6 м - необходимое количество черной ткани, м

http://photo.i.ua/user/5202286/425282/