Var
a, b, c: longint;
begin
readln(a, b);
c := a - b;
if (c > b) then
writeln('Валя собрала на ', c - b, ' кг клубники больше чем Вера.');
if (c < b) then
writeln('Вера собрала на ', b - c, ' кг клубники больше чем Валя.');
if (c = b) then
writeln('Девочки собрали одинаковое количество клубники.');
end.
Друга ищи, а найдешь - береги
Старый друг лучше новых двух
K=4*30*50=6000 символов
I = K * i
I=4500 байт = 36000 бит
i=6
N=3 (три цвета прожектора)
i=4 (прожекторы)
A= N^i
A=3^4=81
Электронная книга, нарисовать телефон.