Нужно текстом решить задачу Пример:

Programm P2;
var X,Y,Z,D:integer;
Begin write('Изначальное количество kg');
Begin write('Сколько продали в 1 день');
Begin write('На сколько kg больше продали в 2 день чем в 1');
Readln(X,Y,Z);
D:=X-Y-Z;
Writeln('Было продано в 2 день=',D);
End.

vovovakgs    3   04.12.2020 19:35    7